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FOREWORD 



an , The intent of this course guide is to provide teachers with guidelines 
and suggested activities for teaching an advanced programming course in the 
mingll UaQe ' gulde su PP° rts a one-semester course, BASIC Program- 

Although primarily oriented toward mathematics, this document does 
tll e Ll^ P J applications in business. The sample applications also address 
the needs of students with a variety Of academic backgrounds. 

H fl tin^%^V S10n u 0f the , ori 9 inal draft Qf this guide is based on recommen- 
?S i£?-« eaC ^ r ? and other specialists during the pilot study conducted 
in tne J.yob-86 school year. 

It is hoped that this guide will prove to be useful to those secondary 
teachers who wish to implement BASIC Programming II at their schools. 




Francis M. Hatanaka 
Super in* endent 
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INTRODUCTION 



This guide for BASIC Programming II is not intended to serve as a 
textbook but rather as a framework of goals and activities, upon which the 
high school teacher can organize, build and expand his or her course. 

Although there is an abundance of resource materials and textbooks 
available for an introductory course in PASJC, tnere are considerably fewer 
materials for an advanced course in BASIC at the secondary school level. 
Many of the college texts are "cut and dry" conveyers of facts, format and 
syntax, with little emphasis on areas stfth as problem solving and 
illustrating effective versus less efficient programming styles. The latter 
chapters of most introductory high school texts do offer material 
appropriate for this course, but no one text is recommended, as none 
provides a* complete coverage of all topics within the course objectives. 
Therefore, a combination of texts and reference books should be available to 
the teacher of BASIC Programming II. Refer to the lists of Recommended 
Textbooks, Teaching Aids, Software and References in the Resources section 
of this guide. 

Because students enrolled in this course will have successfully 

completed BASIC Programming I or the equivalent, their background in the 
subject matter should be quite similar. Whether or not students have 
successfully completed Algebra T, they should have a solid understanding of 
the concept 'variable." In many eases the same teacher will be teaching 
both programming courses, enabling the students to progress smoothly from 
one course to the next. However, regardless of who teaches BASIC 
Programming II or its equivalent (such as in the Mathematics or Business 
Departments), a short period of overlap between the two courses should prove 
valuable in reviewing key concepts from the past and projecting their 
potential uses for the future. 



COURSE DESCRIPTION 



- This course is designed to reinforce and extend the programming skills 
learned in BASIC Programming I and to develop the following fundamental 
concepts and skills of programming, using the computer language BASIC: 

- write logically structured, well -documented programs 

- select and use appropriate algorithms. 

- design and use numeric and string arrays and matrices 

- design appropriate error trapping routines 

- design and manipulate sequential and random access files 

- distinguish types of data structures. 

- recognize the ethical and social implications of computer use. 
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(■RADl S : 9-12 
GOALS: 

The four goals for Computer Science are: 

1. The student will demons t rate competence in using computers; 

2. The student will use the computer as ;i tool for problem 
solving and decision making? 



3. The student will recognize the iinpact of computers in daily life; 

4. The student will investigate educational and career opportunities 
in computer-related professions. 

The taxonomy of goals, objectives and student expectations is derived from 
the Computer Science component of the Computer Literacy Framework. The 
recently revised version of this taxonomy can be found in the Appendix. 

The taxonomy, which is an analytical outline of the Framework, has these 
design features: 

1. Gocls are listed and subdivided into objectives which are further 
subdivided into student expectations; 

2. Objectives are phrased so that they can be used to identify 
relevant classroom materials; 

3. The numerical identification system is designed to accept expansion 
or reduction of goals and objectives as experience requires. 



STUDENT EXPECTATIONS: 

The numeric system of the Taxonomy consists of one-, two- and three-digit 
numbers, each separated by decimal points. The first digit always 
represents a goal, whether it stands by itself or in a two- or three-digit 
number. Likewise* the second digit represents an objective and the third 
digit stands for a student expectation. The twenty-nine student 
expectations for Computer Science are delineated below under the appropriate 
goals. 

GOAL 1 The student will demonstrate competence in using computers. 

1.1.1. The student selects and Uses appropriate resources (manuals, 
programs, peripherals, etc) for performing a task. 

1.1.2. The student adapts programs to solve specific problems. 

1.1.3. The student evaluates and compares computer programs (prepack- 
aged and student's own). 

1.2.1. The student demonstrates through a project the processing of 
information. 

3 
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1.2.2. The student implements routines to process information through 
searching, sorting, deleting, updating, summarizing* storing, 

1.2.3. The student explains the major parts and functions of a 
computer system, (e.g., GPU - registers, accumulators; memory - 
addressing; peripherals - cylinders, tracks, sectors). 

1.3.1. The student demonstrates the ability to clearly define problems 
and to subdivide a particular problem into logical subprdblems. 

1.3.2. The student designs structured solutions to problems - 
algorithms - by applying the principles of top-down design 
methodology. 

1.3.3. The student properly implements the available control 
structures - sequence, iteration and branching - when coding 
algorithms into a specific high-level language. 

1.3.4. The student designs and uses numeric and string arrays and 
matrices. 

1.3.5. The student demonstrates the ability to anticipate, identify, 
isolate and correct errors. 

1.3.6. The student enhances the readability and clarity of his or her 
program by including appropriate documentation. 

GOAL 2 The student will use the computer as a tool for problem solving 
and decision making. 

2.1.1. The student describes the major types of data structures 
available to the high-level language being studied and 
understands their uses and limitations. 

2.1.2. The student recognizes and appropriately utilizes elementary 
data structures in solving problems. 

2.2.1. The student recognizes and. appropriately utilizes elementary 
algorithms in solving problems. 

2.2.2. The student designs and implements his or her own algorithms in 
solving some types of programming problems. 

2.3.1. The student creates and utilizes sequential data files for 
file-processing programs. 

2.3.2. The student creates and utilizes random data files for file- 
processing programs. 

2.3.3. The student easily uses mathematical and string manipulation 
functions specific to the high-level language being studied. 

2.3.4. The student designs a variety of graphics programs. 

2.3.5. The student experiences working asa team in a programming 
environment which simulates the actual field where each team is 
responsible for developing one module in a larger programming 
system. 

2.4.1. The student recognizes and uses computer application tools. 

2.4.2. The student values efficient information processing. 

GOAL 3 The student will recognize the impact of computers in daily 
1 i f e . 

3.1.1. The student identifies computer applications in business, 
industry, scientific research, medicine, government, education, 
health and social services, recreation, creative arts, etc. 

3.1.2. The student appreciates th'j economic benefits of computeri- 
zation for society. 
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3.1.3. The student understands that computers eah be used to effect 
distribution and use of economic and_pol itieal power, and used 
in criminal and other anti -social activities that affect 
society in undesirable ways, 

3.2.1. The student accepts responsibility for following school and lab 
rules pertaining to computer ethics. 

SOAt 4 The student will investigate educational and eareer opportu- 
nities in computer-related professions. 

4.1.1. The student identifies careers that involve computers directly 
(support service, technical and scientific careers, data 
management, programming analysis, etc.) 

4.1.2. The student compares educational requirements and opportunities 
for careers that involve computers. 



PREREQUISITES : 

BASIC Programming I or the equivalent. 
MATERIALS : 

Microcomputers with at most two students per computer per class: 
textbooks and other reference books on the programming language BASIC. 

TIME FOR ACTIVITIES: 



Time will vary from one day to one month for the programming 
assignments, depending on the type of assignment (an exercise, a 
practice program or a term project) , the number of computers available, 
the number. of students in the class(es) and the number of hours the lab 
is available. 

TEACHER PREPARATIO N: 

The teacher should be a programmer ]n BASIC, i.e., know enough about 
the language to write programs, using features of the language listed 
in the Course Outline, following this section. Knowledge of data 
structures and of manipulating sequential and random access files is 
essential . 
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COURSE OUTLINE 



I. Computer Memory arid Processing 

A. Disk Operating System 

B. Compi lers versus Interpreters 

C. Bits, Bytes and Binary System 

D. Binary Code versus ASCII Coda 

E. Data Types 

Hi Programming Fundamentals 

A. Problem Solving 

B. Top-Down Design 

C. Subroutines or Subprograms 

D. Data Entry and Erro> ecking Subroutines 

E. Documentation 

F. Debugging Techniques 

III. Functions in BASIC 

A. Intrinsic Functions 

1. Mathematical Functions 

Z. String Manipulation Functions 

B. User-Defined Functions 

IV. Lists and Tables in BASIC 

A. One-Dimensional Arrays 
D. Two-Dimensional Arrays 

C. Searching and Sorting Array? 

V. Data Files 

A. Sequential File Processing 

B, Random File Processing 

VI. Data Structures 

A. The Stack 

B. Queues and Linked Lists 

C. Trees 

VII. Graphics 

A. Lcw-Reso : ution Graphic r 

B. High-Resolution Graphics 
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VIII. Computer Ethics arid Impact on Sbeiety 

A. Computer Careers 

B. Computer Uses arid Misuses 



8 

13 

ERIC 



SYLLABUS 

I; Computer Hardware/Software Considerations 

A. Computer Lab Rules 

B. Proper Computer Care 

C. Bisk Operating System 

D. Compilers versus Interpreters 

E. Bits, Bytes and Binary System 

1. Binary and ASCII Codes 

2. Data Types 

(Topics II and HI should be emphasized throughout the course 
II. Structured Programming 

A. Control Structures 

1. Sequence 

2. Selection 

3. Iteration or Repetition 

B. Top-Down Design 

1. Modular Programming 

2. limited Use of GOTO 

C. Subroutines or Subprograms 

III. Problem-Solving Strategies 

A. Problem Definition and Flowchart or Algorithm Design 

B. Coding and Error Checking Subroutines 

C. Testing and Debugging Techniques 

D. Documentation 

(Topics IV and V could be interchanged or combined.) 

IV. Subscripted Variables 

A. 0ne-d1mensional Arrays 

1. Searching Lists 

2. Sorting Lists 
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B. Two-dimensional Arrays 

1. DIM Statements 

2. MAT-READ Statements (optional) 

V. BASIC Functions 

A. Intrinsic Functions 

1. Mathematical Functions 

INT, RND, SQR, SGN, ABS, SIN, COS, TAN, LOG, EXP 

2. String Manipulation Functions 

CHR$, ASC, INKEY$ or GET A$, LEFT$, MID$, RIGHT$, STR$, 
VAL, LEN 



B. User-Defined Functions: DEF FN 
VI. File Handling 

A. Sequential Files 

1. Statements and Functions for File Processing 

2. File Commands 

B. Random or Direct Files 

1. Records and Fields 

2. Random File Processing 

VH. Graphics 

A. bow- and High-Resolution Graphics 

1. Plotting 

2. Drawing 

B. The Uses of Computer Graphics 
VIII. Data Structures 

A. The Stack 

1. Definition and Function 

2. Examples and Applications 

B. Queues and Linked Li ts 

1. Definitions and Functions 

2. Examples and Applications 

C. Trees 

1. Definitions and Functions 

2. Examples and Applications 

10 

15 



ERLC 



(Topic IX should be addressed throughout the course.) 

IX. Computer Ethics and Impact on Society 

A. Implications 

1. Computer Careers and Other . Job Opportunities 

2. Applications in Industry, Medicine, Data Processing, etc. 

B. Issues 

1. Computer Misuses and Crime 

2. Unemployment and Depersonalization 

3. Privacy 

X. Assignments 

A. Daily or Weekly Exercises 

1. Class 

2. Team 

3. Individual 

B. Weekly or Biweekly Short Programs 

1 . Team 

2. Individual 

C. Term Project 

1. Pair of students 

2. Individual 

D. Unit Tests 
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COURSE MANAGEMENT CONSIDERATIONS 



REFERENCE MATERIALS 

It is_ highly recommended that reference Books be available which 
include the features unique to the computer being used and that programming 
assignments be designed to include some of these features whenever possible. 
The following is a list of references to consider: 

1) Dictionary of computer terms; 

2) Bootes or workbooks specifically written for the computer being 
used; 

3) Periodicals; 

4) Quick Reference Cards for the computer being used. 



DISKETTES 



Each student should have his or her own diskette for storing the 
assigned exercises and programs. Backups of his or her work should be made 
regularly by the student oh a second diskette to ensure protection from loss 
due to disk damage. At least one of the diskettes should be kept in a 
secured file located in the lab or the classroom. 

CLASSROOM MANAGEMENT 

A lab setting with one student per computer is ideal. No more than 
two students working at a computer is recommended. In most cases there 
will be more students per class than microcomputers. Therefore, class time 
should be equally divided into work sessions to enable each individual 
student his or her turn. A system should be encouraged whereby students 
must first plan their project or assignment on paper before using the 
computers. Development of flowcharts or algorithms is an appropriate 
p re-programming activity. Other desk assignments or worksheets should be 
provided to involve all students in constructive activity while waiting for 
their computer time. 

S1gn-up sheets should be available for computer time outside of the 
class period. There should be a limit as to how many times a student signs 
up during a week. The student should cross off his or her name, when unable 
to keep the appointment * al lowing other students a chance for that time 
slot. Penalties could be given to those who abuse the sign-up system. 
Refer to the sample sign-Up sheet located in the Appendix of this guide. 

With a computer lab setting, which is recommended, the teachers may 
need an assistant or two to maintain order in the classroom while he or she 
is in the lab or to help out in the lab while he or she remains in the 
classroom. Rewards for these assistants should Include bonus points, extra 
computer time or the additional knowledge and experience gained by this 
opportunity. 
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ASSIGNMENTS AND GRADING 



Assignments can include daily or weekly exercises on specific 
programming skills or concepts, weekly or biweekly short programs involving 
related course content and one or two term projects of a longer program 
incorporating most major concepts presented that quarter or semester. 
Programming assignments can be distributed one week before the due date of 
the previous program, and new materiaT needed can be covered from that week. 
After the deadline has passed for any programming assignment, it is helpful 
to compare and discuss several student approaches at solving the problem. 
When there are no lectures or lab exercises, students can work on their 
flowcharts at_ their desks or ente^ their programs at the computers. A 
constant overlap of programming assignments during the semester enables 
maximum use of programming time and allows students who complete their 
programs early to have another project to prepare. 

Adequate documentation is just as important as solving the problem. 
Documentation should be included as the program is written. This approach 
makes the debugging process easier for the student and the teacher. Stu- 
dents can work on their documentation at their desks before they enter the 
REM statements in their programs. 

Some students may want to work in pa i rs on their programs. This 
generally works out well when both students have the same ability level and 
the work can be divided satisfactorily between the two. Both students 
should receive the same grade for the program. There are times when 
exercises are best done by the class as a whole, a team or pair of students 
or the individual . Students can learn from one another in group work, but 
they can also take advantage of the situation by letting others carry the 
load. It is left to the discretion of the teacher as to when students 
should work in groups or alone. 

One suggestion for handling a class with a wide range of 
student proficiency is to assign several versions of a programming problem 
adjusted to an appropriate level of difficulty. The more skil led indivi- 
duals can be chal lenged with the most difficult version, while the least 
able can be given a version that will help them grow without overwhelming 
them. 

Concerning due dates for assignments, al ternatives include giving 
extra points for the early completion of a program or not accepting late 
ones. However, there should be a ceiling on the number of extra points 
giyen,_ su_ch_ as one .point for each day an assisnmerit _is_ .early % up to a 
maximum of five points. As suggested in the guide for BASIC Programming I, 
an earlier due date for the flowchart tends to motivate the student to start 
developing his or her program sooner than if both the flowchart and the 
program are i due ^_at the same time* This also allows the teacher adequate 
time to spot problems that a student may be having with the assignment. 

A possible weight distribution for grading programming assignments 

fol lows: 

3035 flowchart and/or algorithm 

30% translation of flowchart and/or algorithm into structured 
BASIC 

14 
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20% documentation 
15% valid output 

_ 5% other (such as adhering to the lab rules). 

A sample of a grading sheet for programs is located in the Appendix. 
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SAMPLE ACTIVITIES AND PROGRAMS 



INTRODUCTION TO ACTIVITIES 

The suggested sample activity clusters and programming assignments on 
the f ol_j owing .pages support the fundamental concepts and skills delineated 
in the Course Description, the .student expectations enumerated in the Course 
Requirements and the eontent prescribed in the Course Outline. These 
activities provide teaching strategies for introducing certain concepts, 
developing specific skills or reinforcing previously learned aspects of 
BASJC The syllabus. included in this juide offers Only a suggested order of 
content. It should be noted that within the sample clusters of activities, 
syllabus topics may not be in the exact order given, as Some assignments can 
easily incorporate more than one topic. For instance, graphics may be 
integrated throughout the course, not presented just toward the end of the 
semester. The level of experience and skills of the students will most 
likely determine the order of presentation of topics and the degree to which 
they are covered. 

Examples of most programs are geared for Apple equipment but can be 
modified for other brands of microcomputers. 

The sample activities and programs are not intended to be the only 
method of presentation but are instead "starting points" from which teachers 
can expand, using their own approaches, ideas and creativity. 
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SAMPLE ACTIVITY CLUSTER #1 
Review of Hardware/Software Considerations 

Topic s : 

1 . Compute r Lab Rules 

2. Proper Computer Care 

3. Disk Operating System 

4. Compilers versus Interpreters 

5. Bits, Bytes and Binary System 

Classroom Managem ent : 

The class as a group will be involved with these activities. 
Material s : 

Overhead projector and prepared transparencies* 

Videotape player and the videotape, "Hardware and Software"; 

demonstration microcomputer and large-screen monitor; 

Handouts. 

Time for Activities : 

Approximately two to five days 

Teacher- Preparation and Procedures : 

Prepare transparencies, handouts and the demo disk of BASIC and Pascal 
programs. All sample materials for these activities are located 
in the Sample Assignments and Materials for Activity Cluster #1. 

1. Using the overhead projector, review the basic rules on lab beha- 
vior and proper computer care. (Emphasize any changes since last 
semester's course in BASIC Programming I.) Discuss any student 
concerns. Handout #!__- Computer Lab Rules is a sample set of 
rules that could be used. 

2. Review the role of the Disk Operating System (DOS) or the CP/M 
System for the microcomputers the class is using. Show the 
videotape, "Hardware and Software," and provide questions for 
discussion, such as from Handout #2 - Questions for the Video- 
tape, "Hardware and Software." 

3. Using a demonstration microcomputer the_ software fea- 
tures of a compiler versus an interpreter via a simple program 
ceded in BASIC and the Pascal programming languages. (Be sure to 
use a version of Pascal, such as Apple Pascal, that does function 
with a compiler.) Deliberately put some syntax errors in both 
programs. Consider the "pros" and "cons" of both systems. Two 
examples of a program coded in both languages are provided in 
Handout #3 - Comparison of Two Computer Languages. 

19 
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4. Review or introduce the concepts of__bit* byte arid binary system; 
Distinguish the major data types—ASCII characters, integers arid 
floating point numbers. Distribute Handout #4 - Binary Card Same 
and Have students perform the game. The cards could already be 
prepared in advance for the students, but the important point is 
for each individual to try using the cards as directed and ex- 
plain why the results turn out as they do. This could lead to an 
Interesting class discussion. 

Sample Assignments and Materials for Activity Cluster #1 : 

The following pages in this activity cluster provide handouts that 
could be used in this course. 
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Handout #1 
Review 



NAME 

DAT E 

PERIO D - 

COMPUTER LAB RULES 

1. The lab will be available for academic use from 7:00 a.m. to 3:00 
p.m. Plan your work accordingly. 

2. When heeding the lab outside of class time to work on an assignment, 
sigh up for only one time slot at a time— either before school , at 
recess, lunch or after school, if you cannot make that appointed 
time* cross your name off the sign-up list. If you are late for that 
appointment beyond five minutes, you forfeit that lab time, unless no 
One else needs it. 

3. Non-academic game-playing is not allowed. 

4. No food and drinks are allowed in the lab. 

5. No TV watching is permitted. 

6. No copying is permitted. Anyone found copying will forfeit all 
future Use of the computer lab outside of class time. Only one 
backup copy of your own work disk is permitted. 

7. Do not tamper with other students' disks stored in the lab. Written 
permission by that student to use his or her disk is not acceptable. 
An appropriate consequence will follow any such violation. 

8. Strive to be polite and considerate of others in the computer lab. 
Keep the noise level down, and vacate your position immediately upon 
completing your time slot. 
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Handout #2 
Review 



NAME 
DAT£~~ 

periUd: 



QUESTIONS FOR THE VIDEOTAPE 
"Hardware and Software" 

How do competitors sneak into Atari's developmental lab in the 
Silicon Valley? 

Why is there a software lag? What does this mean for the future? 

What role does a modem play in data communications? 

Distinguish the differences among mainframes, minicomputers and 
microcomputers. 

Name three devices for inputting data into a computer system and 
three devices for outputting data from this system. 

In what three ways can printers be characterized or described? 

What are the five components of any computer system? Describe 
the relationships among these components. 

How are systems programs different from systems services? Where 
does the operating system fit? 

What converts source code to object code or machine language? 



Why will non-procedural languages become the ultimate in 
user-friendly computer languages? 
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Handout #3 
Review 



NAM E 

BAI L 

PER I W " 

COMPARISON OF TWO COMPUTER LANGUAGES 

BASIC PASCAL 

(Uses an Interpreter to Translate into (Uses a Compiler to Translate 

Maehine Language) intd Machine Language) 

n , £fI A F A * n PROGRAM AREA; 

05 REM Area of Rectangle VAR LENGTH, WIDTH, AREA: REAL; 

±0 LET L = 17 BEGIN 

20 tETH=i| LENGTH: = 17;0; 

30 LET A = L*W WIBTH-= 12 0- 

40 PRINT L,W,A AREA:= LENGTH*WIDTH; 

50 END WRITELN (LENGTH, WIDTH, AREA) 

END. 



nc £0UNT5 PROGRAM COUNTS; 

?n rnn increments by 5 y M X : REAL; 

10 E0R X = -10 TO 10 STEP 5 BEGIN 

20 PRINT X X-= -15 0- 

30 NEXT X REPEAT 

40 E ND x + 5>0 . 

WRITELN (X) 

or UNTIL X = 10.0 

END. 

05 REM Increments by 5 

10 LET X = -15 

20 LET X = X + 5 

30 PRINT X 

40 IF X < 10 THEN 20 

^0 END 
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Handout #4 
Page 1 oF 2 
Review 



NAME 

DATE - 

PERlW 



BINARY CARD GAME 

ESSENTIAL ELEMENT ADDRESSED: Communicating instructions to the computer; 

Using the computer as a tool (sorting) 

MATERIALS: 15 3 n x5" index cards per student 
Scissors 
Hole Punch 
Black marker 
Extended paper cl ip 

INSTRUCTIONS FOR MAKING BINARY CARDS: 

1. Punch 4 holes 1 M apart on the 5" side of the index cards. 

2. Each hole will represent a place value in base two numeration. 

3. Under each hole, write 2 raised to appropriate powers in order from 
right to left. 

4. Number each card (using decimal numeration) 1-15 on the lower right 
corner. 

5. Designate the value of the number written on the card by clipping 
appropriate holes. Clipped holes represent a 1, and closed holes 
represent a 0. In the example below, the decimal number 6 is 
shown, since 110(base two) = 6(base ten h 




Note: Each pair of students should construct his or her own set of ]£ 
cards. 
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Handout n4 
Page 2 of 2 
Review 

INSTRUCTIONS FOR USE: 

1. Shuffle the cards to mix up their order. 

2. Stack all 15 cards, with punched edge o? cards up. 

3. Extend a paper clip and insert through the first hole on the right 
hand side. All cards that have a closed hole in the one's place 
will remain on the paper dip. All others will drop off. 

4. Place the cards which drop off at the back of the stack. 

5. Now put the paper clip through the twos place and follow the same 
procedure. 

6. Continue this process through and including the eights place hole. 
The cards should be in numeric order. 
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SAMPLE ACTIVITY CLUSTER #2 
Structured Programming via Subroutines 



T opics : 

1. Data Statements 

2. Subroutines and Iteration Control Structures 

3 . Top-Down Design 

4. Low-Resolution Graphics 

5. Bar-Graphs 

Classroom Management : 



Some of the work is best dene by the class as a whole; others by pairs 
of students; and still others by individuals. 

Materials : 

Demonstration microcomputer and large-screen monitor with demo pro- 
grams, "Making a Face" and "Bar Graph" on disk; 
Handouts; 
Current Almanacs. 

Time for Activities : 

Approximately two weeks 

Teacher Preparation and Procedures : 

Prepare the handouts and sample programs on disk. All sample materials 
for these activities are located in the Sample Assignments and 
Materials for Activity Cluster #2. 

1. Using the chalkboard, review the basics of READ-DATA statements 
with numerous examples having errors. Let the class as a whol b 
find the syntax and logic errors. 

2. Introduce or review (depending on the previous experience of th* 
class) subroutines and low-resolution graphics via a lecture and 
demonstration, using the demo microcomputer and the "Making a Face" 
program already on disk. Distribute Handout #1 - Demo Face 
Subroutine Program for students to see a 1 isting of the program on 
disk. Emphasize the concepts of top-down design and modular 
programming, and have students interpret the statements. After 
running the program, have groups of students modify it to generate 
six faces on the screen arid then to displ ay the faces in random 
colors. 

3. Assign two or three short programs from Handout #2 - Data State- 
ments and Subroutines. Have students work in pairs. 
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4. Using the ririerocomputer to further demonstrate subroutines, present 
a program for . drawing a bar graphs ndt__usihg Ibw-resdlUiibri 
graphics but Utilizing READ-DATA arid GOSUB-RETURN .statements.. Have 
the class help develop the program. After distributing Handout #3 
- Demo Bar Graph Program^ have the class modify it by incorporating 
names of different lengths in the DATA statement, scale the numeric 
data and line up the starting asterisks, 

5. Assign a bar graph program using Subroutines and Data Statements f 
as in the demonstrated bar graph program. Provide several levels 
of difficul ty and extra -credit work and assign each student a 
program at the appropriate level. Allow students to look up their 
own data in the library or from classroom Almanacs. Provided in 
Handout #4 - Bar Graph, Using Subroutines and Data Statements are 
six sample bar graph assignments with varying levels of 
difficulty for different students. E?ch offers the same extra 
credit assignment, however. 

The following pages in this activity cluste~ provide handouts that 
could be used in this course. 
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Handout #1 

Structured Programming 

NAME 

DAT E 

PERIO D 

DEMO FACE SUBROUTINE PROGRAM* 

0001 REM ** MAKING A FACE ** 

0002 REM ** GRAPHIC SUBROUTINE ** 

0003 REM ************** 
0010 HOME 

0020 GR 

0030 COLOR= 1 

0040 REM **MAIN PROGRAM** 

0050 X = C:Y =0: GOSUB 1000 

0060 X = 20:Y = 0: GOSUB 1000 

0070 FOR I = 1 TO 2500: NEXT I 

0080 TEXT : HOME 

0090 GOTO 2000 

1000 REM **FACE SUBROUTINE** 

1010 HLIN X,X + 9 AT Y 

1020 VLIN Y+1.Y+8ATX+9 

1030 HLIN X + 9,X AT Y + 9 

1040 VLIN Y + 8,Y + 1 AT X 

1050 PLOT X + 3,Y + 2: PLOT X + 6,Y + 2 

1060 HLlil X + 4,X + 5 AT Y + 4 

1070 PLOT X + 2,Y + 5: PLOT X + 3,Y + 6 

1080 HLIN X + 4,X + 5 AT Y + 7 

1090 PLOT X + 6,Y + 6: PLOT X + 7,Y + 5 

1100 RETURN 

2000 END 



*From Apple BASIC by Richard Haskell, page 79; copyright (c) 1982 by 
Prentice-Hall, Inc., Englewood Cliffs, New Jersey. Reproduced with 
permission. 
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Handout #? 
Page 1 of 2 

Structured Programming 



NAME 



PERIOD" 



DATA STATEMENTS AND SUBROUTINES 

A freight company charges $70 per ton for the first 12 tons and $40 
per ton for every ton over 12. The following companies had 
shipments as indicated: 

Company A 14 tons 

Company B 42 tons 

Company C 6 tons 

Company D 130 tons 

Company E 2360 tons 

Write a program using DATA statements and SUBROUTINES to print out 
the company name, the tons shipped and the charges for each 
company. 

Several schools ordered textbooks from the mainland. The charges 
for the books were: under 30 copies, $12.95 each and 30 or more 
copies, $12.75 each. 

School A 35 copies 

School B 70 copies 

School C 12 copies 

School D 90 copies 

School E 25 copies 

There is also a $0.15 per book shipping charge. Write a program 
using DATA statements and SUBROUTINES to print out the total bill 
for each school . 

A _ company computes the monthly earnings of a salesman on the 
following basis: monthly earnings are 18% of total sales, plus a 
bonus of 15% of any amount sold in excess of $6000. There are 6 
salesmen in the company, and for the month of January their sales 
were as follows: 

SALESMAN _ -M O NTHLY SALES 

1 $ 8200 

2 4800 

3 6800 

4 7850 

5 5560 

6 5900 
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Handout #2 
Page 2 of 2 

Structured Programming 

Put the amount of sales in DATA statements arid write a program 
using SUBROUTINES to calculate each person's monthly earnings, 
including any bonuses earned.* 



*From Data Processing: An Introduction with BASIC by Donald D. 
Spencer, page 450; eonyright (e) 1982 by Charles E. Merrill Publish 3 - 
Co., Columbus, Ohio. Reproduced with permission. 
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Hahddut #3 

Structured Programming 



NAME 
DATE"" 

PER foil 

DEMO BAR GRAPH PROGRAM 



001 HOME 

003 PRINT "BAR GRAPH" 

005 GOSUB 550 

007 PRINT 

015 FOR I = 1 TO 5 

020 READ A s A$ 

022 PRINT A$i" "; 

025 GOSUB 500 

030 NEXT I 

050 GOSUB 550 

300 GOTO 700 

499 REM ROUTINE TO PRINT * 

500 FOR J = 1 TO A 
510 PRINT 

520 NEXT J 

530 PRINT: PRINT 

540 RETURN 

549 REM ROUTINE TO PRINT - 

550 FOR 1=1 TO 40: PRINT "-", 
560 NEXT I 

570 .RETURN 

600 DATA 29,A,13,B,2,C,17,D,6,E 

700 END 



OUTPUT: 
BAR GRAPH 

A ***************************** 
g ************* 

e ** 

Q ********* ******** 
£ ****** 



Change line 600 to: 

600 DATA 60, Art, 90, Bob, 30, Charles, 50, David, 20, Edward 

Modify the program to scale the numeric data and line up the 
starting *. 
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Handout #4 
Page 1 of 6._ 
Structured Programming 



NAME 
DATE 
PERIOD" 



BAR GRAPH - 



COURSE 



USING SUBROUTINES AND DATA STATEMENTS 
NUMBER (have taken or are now in class) 



Core Alg 
Alg I 
Geometry 
Alg II 
Trig/Ana lyt 
Calculus 
Computer Math 



Poll the members of the class and get che number of students who have 
taken each of the above courses. 



jete this chart and store the information in Data statements. Plot 
the results in BAR GRAPH form. Save as BARGRAPH. 

EXTRA CREDIT 

BAR GRAPH - USING SUBROUTINES AND DATA STATEMENTS 
AREA(SQUARE MILES) 



ISLAND 



Kauai 
Maui 
Molokai 
Oahu 
Lanai 
lii 



Jete this chart and store the information in Data statements. Plot 
the results in BAR GRAPH form. Save as BGRAPH2. 
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Handout #4 
Page 2 of 6 _ 
Structured Programming 

NAM E 

DAT E 

PERIO D^ ~~ 

BAR GRAPH - USING SUBROUTINES AND DATA STATEMENTS 

TEAM GAMES WON (YEAR) 

BYU 

Air Force 
Hawaii 
Colorado St 
Utah 
Wyomi ng 
New Mexico 
San Diego St 
UTEP 

Complete this chart and store the information in Data statements. Plot 
the results in BAR GRAPH form. Save as BARGRAPH. 

EXTRA CREDIT 

BAR GRAPH - USING SUBROUTINES AND DATA STATEMENTS 

ISLAND AREA( SQUARE MILES) 

Kauai 

Maui 

Molokai 

Oahu 

Lanai 

Hawaii 

Complete this chart and store the information In Data statements. Plot 
the results in BAR GRAPH form. Save as BGRAPH2. 
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Handout #4 
Page 3 of 6 

Structured Programming 



NAME 

BAT E" 

PERIOD" 

BAR GRAPH - USING SUBROUTINES AND DATA STATEMENTS 

ST ^ TE . POPULATION 

New York 

New Jersey 

Cal ifornia 

Pennsylvania 

Massachusetts 

Texas 

II 1 inois 

Complete this chart and store the information in Data statements. Plot 
the results in BAR GRAPH form. Save as BARGRAPH. 

EXTRA CREDIT 

BAR GRAPH - USING SUBROUTINES AND DATA STATEMENTS 

ISLAND — ARE A( SQUARE MILES) 

Kauai 

Maui 

Molokai 

Oahu 

Lanai 

Hawaii 

Complete this chart and store the information in Data statements. Plot 
the results in BAR GRAPH form. Save as BGRAPH2. 
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Handout #4 
Page 4 of 6 

Structured Programming 

NAME 

PATE 

PERIO D _ 

BAR GRAPH - USING SUBROUTINES AND DATA STATEMENTS 

STATE AREA (SQUARE MILES) 

Washington 

Oregon 

Cal ifornia 

Arizona 

Nevada 

Idaho 

Utah 

Alaska 

Complete this chart and store the information in Data statements. Plot 
the results in BAR GRAPH form. Save as BARGRAPH. 



EXTRA CREDIT 



£AR GRAP!! - USING SUBROUTINES AND DATA STATEMENTS 

ISLAND AkEA( SQUARE MILES) 

kauai 



Maui 



Molokai 



Oahu 
Lahai 



Hawai i 



Complete this chart and store the information in Data statements. Plot 
the results in. BAR GRAPH form. Save as BGRAPH2. 



36 



Handout #4 
Page 5 of 6 

Structured Programming 



NAME 

DAT E 
PERIO D 

BAR GRAPH - USING SUBROUTINES AND DATA STATEMENTS 

P L ANET MI LES FROM SUN 

Earth 

Mercury 

Venus 

Mars 

Jupiter 

Uranus 

Saturn 

Neptune 

Pluto 

Complete this chart and store the information in Data statements. Plot 
the results in BAR GRAPH form. Save as BARGPAPH. 

EXTRA CREDIT 

BAR GRAPH - USING SUBROUTINES AND DATA STATEMENTS 

ISLANB AREA( SQUARE MILES) 

Kauai 

Maui 

Molokai 

Oahu 

Lanai 

Hawai i 

Complete this chart and store the information in Data statements. Plot 
the results in BAR GRAPH form. Save as BGRAPH2. 
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Handout #4 
Page 6 of 6 

Structured Programming 

NAME 

DAT E 

PERIOD T~ 



NATION 



BAR GRAPH - USING SUBROUTINES AND DATA STATEMENTS 
- POPULAT ION AREA(SQUARE MILES) 



Austral ia 

Bangladesh 

Britain 

Canada 

China 

India 



USA 
USSR 



lete this chart and store the information in Data statements. Have 
the computer calculate the population density for each country. Plot the 
results in BAR GRAPH form. Save as BARGRAPH. (NOTE: density = population/ 
area) 

EXTRA CREDIT 



ISLAND 



BAR GRAPH - USING SUBROUTINES AND DATA STATEMENTS 
AREA(S)UARE MILES) 



Kauai 

Maui 

Molokai 

Oahu 

Lanai 

Hawaii 



Complete this chart and store the information in Data statements, 
the results in BAR GRAPH form. Save as BGRAPH2. 
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SAMPLE ACTIVITY CLUSTER #3 



Subscripted Variables and Problem-Solving Strategies 



Topics : 



1. One-dimensional Arrays 

2. Two-dimensional Arrays 

3~ Problem Definition and Flowchart Desion 

4. Control Structures and Logical Operators 

5. Errr>.--Checking Subroutines 

6. Documentation 

7. Testing and debugging Techniques 

8. Matrix Manipulation (Optional ) 

9. Hierarchy Charts and Menus 

£las sroom -Hon a g erne n t : 

Some of the work is best done by the class as a wholes by pairs of 
students and by individuals. 

Materials : 

Videotape player and the videotape, "Subscripted Variables and Arrays"; 

Demonstration microcomputer and large-screen monitor with the demo 
program, "Visible Bubble Sort" from Softdisk Magazine and one 
menu-driven program, such as "Summer Ganies" from t?/X Computer 
Software; 

Overhead projector and transparency for hierarchy chart; 
Handouts,, 

Time for Activities: 

Approximately four to five weeks 

Teacher -Preparation and Procedures : 




Prepare the handouts and transparency and preview the demo program. 
All sample materials for these activities are located in the Sample 
Assignments and Materials for Activity Cluster #3. 

1. Using the chalkboard or overhead projector, introduce or review 
one-dimensional arrays. Shov; how they are more effective than 
READ-DATA Statements in manipulating large amounts of data. Assign 
any related reading material. 

2. Remind students about the careful use of the logical operators--AND 
and OR in the IF-THEN control structure. Provide Handout #1 - 
IF-THEN Control Structure as a worksheet on predicting output using 
the IF-THEN Control Structure and logicaj operators in problem 
sol vi ng. Review the differences between the IF-THEN and the FOR- 
NEXT control structures. Have students incorporate these control 
structures in a program which performs the divisibility tests for 
2, 3, 4, 5, 6, 8, 9 and 10 for some input number. A sample listing 




39 



30 



for one ..solution, to this problem^ using Applesoft BASIC, is provi- 
ded ill Handout #2 - Divisibility Program. 

Distribute to pairs of students Handout #3 - Array Assignment 1 
with several short array problems. Emphasize the need for continu- 
ing the problem-solving strategies learned in BASIC Programming I, 
such as problem definition and flowchart design; Continue to 
stress the importance of structured programming, using the proper 
control structures of sequence, selection and/or iteration. 

- For review and further explanation, show the videotape, 
"Subscripted Variables arid Arrays *" and provide Handout #4 - 
Questions for the Videotape* "Subscripted Variables and Arrays," 
for discussion. This film presents a good introduction to the 
Bubble Sort. 

Have students individually work on Handout #5 - Subscript Worksheet 
to determine the output for several subscript problems. Discuss 
results. This worksheet may be most appropriate as a "break" in 
the Array Assignment 1 that reinforces student understanding of 
subscripted variables. 

Present the bubble sort via lecture and the demo computer program, 
"Visible Bubble Sort" (from Softaisk Magazine). For further 
information on this program, see page 198. Have students, select 
one of three programs to develop from Handout #6 - Bubble Sort 
Assignment. 

Provide a review worksheet. Handout #7 - GOSUB, for determining the 
output of various subroutines. Assign Handout #8 - Crunch for fun 
and also as a review for designing a structured program, using 
subroutines. 

Introduce two-dimensional I arrays via a lecture arid group 

demonstration of loading and displaying a table having four rows 
and five columns^ Distribute Handout #9 - Array Assignment 2 with 
several programming problems from which one is chosen by each 
student. Flowcharts should be required as well as good documenta- 
tion by including appropriate REM statements. If necessary, 
provide Handout #10 - Review Worksheet on Arrays. Handout #11 - 
Test on Arrays may also be helpful. 

Demonstrate the value of providing error-checking or error-trapping 
subroutines for valid input data. An example of such subroutines 
is provided in Handout #12 - Error-Checking Subroutine. Stress 
that all subsequent programs should have entry validation sub- 
routines. 

Review the procedures for testing arid debugging structured 
programs. Excel lent examples of programs needing debugging are 
found in Handout #13 - Debugging Exercise. (Refer to the restric- 
tion on reproduction, regarding these exercises.) Consider the 
tracing techniques provided by the computer system in use. Show 
how the PRINT statement can be temporarily inserted to test 
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variables, especially after calculations, during search subroutines 
or before selection control structures. 

11. As an optional activity, if your computer system accepts MAT state- 
ments, demonstrate the use of MAT-READ, MAT-PRINT and MAT-INPUT 
statements as matrix operations, which can simplify the handling of 
one- and two-dimensional arrays. Two example programs are provided 
in Handout #14 - MAT Statements. The text, The Basics of BASIS by 
Alfredo C. Gomez, offers an excellent chapter on Matrices. Chal- 
lenge the more adept students With matrix addition, subtraction or 
multiplication problems. 

12. Using Handout #15 - Hierarchy Chart, present a lecture with the aid 
of an overhead projector to she* how hierarchy charts: 

a. encompass the basic computer processing steps of input- 
processing — output; 

b. aid in the visualization of top-down structured programming; 

c. break a program into small, easy-to-wri te and debug modules. 

From the same handout assign programs for designing hierarchy 
charts and have the class identify and develop hierarchy charts 
for each program. Assign programs to be flowcharted and solved, 
using the modules identified as subroutines. Explain the "stubbing- 
in technique," as described on pages 20-21 of Advanced Structured 
BASIC by Clark and LaBarre. 

13. Demonstrate software that is menu-driven. (Any available software 
can be used since almost all user programs are menu-driven, such as 
word processing, problem-solving games etc.) Have the class dis- 
cuss the advantages of menu-driven programs for the user and 
programmer. Present a lecture on the relationship between a hier- 
archy chart and a menu_and on how menus are developed and used in 
programming. Explain the use of ON GOTO and ON GOSUB , verification 
of selection from menu, and termination of program. 

14. Distribute Handout n6 - Menu-Driven Programming Assignments. Dis- 
cuss with the class possible menu items for each program. Assign 
programs to be written by individuals or pairs. A sample solution 
to problem 1 for the TRS-80 Model 4 and IBM PC computers is includ- 
ed in the handout. 

Sample Assignments and Materials for Activity C1uster M?3: 

The following pages in this activity cluster provide handouts that 
could be used in this course. 



Handout #1 
Page 1 of 2 

Variables arid Strategies 

NAME 

DAT E 
PERIT5D 



IF-THEN CONTROL STRUCTURE 

Ah IF... THEN statement will cause control of the program to branch to the 
designated line when the given expression is TRUE. Sometimes it may be 
difficult determining whether a branch will occur. Here is a short program 
segment that may help you decide. 



40 X-12:Y=2 

50 IF X*2 > 5 THEN 80 

60 PRINT "IT DIB NOT BRANCH" 

70 GOTO 90 

80 PRINT "IT RID BRANCH" 

90 END 



Listed below are a number of IF... THEN statements that should replace line 
50 in the program above. Your job is to decide whether a branch to line 80 
WILL or WILL NOT take place when X=12 and Y=2. Circle the correct answer. 
If you think the computer will produee a SYNTAX ERROR then circle the entire 



problerm 










A) 


50 


IF 


X hot = Y THEN 80 


will 


wi 1 1 


not 


B) 


50 


IF 


X+Y/X > 10 THEN 80 


will 


wi 1 1 


not 


C) 


50 


IF 


X-Ys 10 or X < 10 THEN 80 


wi 1 1 


wil 1 


not 


D) 


50 


IF 


X/Y - INT(X/Y) .0001 THEN 80 


will 


will 


not 


E) 


50 


IF 


X/(Y-INT(X/Y)} .0001 THEN 80 


will 


wi 1 1 


not 


F) 


50 


IF 


INT(-l*X+3.7)<>-44 THEN 80 ; 


will 


wi 1 1 


not 


G) 


50 


IF 


INT((Y+.5)*10+.5)/10=2.5 THEN 80 


will 


wi 1 1 


not 


H) 


50 


IF 


X<100 OR Y< 10 AND X=»15 THEN 80 


will 


wi 1 1 


not 


ij 


50 


IF 


(X^lOO or Y<10) AND X^15 THEN 80 


will 


wi 1 1 


not 




50 


IF 


X/INT(-.4) > Y THEN 80 


will 


wi 1 1 


not 


Kj 


50 


IF 


X<=>V THEN 80 


will 


wi 1 1 


not 
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L) 50 IF 12 >=X THEN 80 

M) 50 IF X/Y«= INT(X/Y) THEN 80 

N) 50 IF X<10 THEN PRINT "GEE!": GOTO 80 



Handout #1 
Page 2 of 2 

Variables and Strategies 

will will not 

will will hot 

will will not 
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Handout #2 
Page 1 of 3 ... 
Variables and Strategies 

NAME 

DAT E 
PERlDT ) 

010 ROME 

020 REM DIVISIBILITY PROGRAM 

025 REM SAMPLE SOLUTION 

030 REM ************************************** 

040 REM * ASSIGNMENT OF VARIABLES * 
045 REM ************************************** 

050 REM K% = RESPONSE VARIABLE TO BEGIN PROGRAM 

060 REM M = INPUT NUMERAL 

070 REM N = VALUE OF INPUT NUMBER 

080 REM Tl$= ONES DTGIT OF INPUT NUMERAL 

090 REM Tl = VALUE 0F THE ONES DIGIT 

100 REM T2$= TENS DIGIT 0F INPUT NUMERAL 

110 REM T2 = VALUE OF THE TENS DIGIT 

120 REM T3$= HUNDREDS DIGIT OF INPUT NUMERAL 

130 REM T3 = VALUE OF THE HUNDREDS DIGIT 

140 REM R$ = DIFFERENCE OF LOOP NUMERAL 

150 REM RN = VALUE OF THE RESULTING DIFFERENCE IN LOOP 

160 REM P = NUMBER OF DIGITS IN INPUT NUMERAL 

170 REM M = LOOP VARIABLE 

180 REM Dl$= LEFT MOST DIGIT OF THE DIFFERENCE IN LOOP 

190 REM Dl = VALUE OF THE LEFT MOST DIGIT IN LOOP 

200 REK PV = PLACE VALUE 0F LEFT MOST DIGIT IN LOOP 

210 REM S = SUM OF THE DIGITS OF THE NUMERAL 

220 REM A$ - RESPONSE TO TRY AGAIN 

225 REM ************************** 

230 REM * TITLE SCREEN * 

235 REM ************************** 

240 VTAB (7): HTAB (4) 

250 INVERSE 

260 PRINT " TEST OF DIVISIBILITY FOR " 

270 NORMAL 

280 PRINT : PRINT 

290 PRINT " 2 § 3, 4, 5, 6, 8, 9, and 10" 

300 VTAB (18) 

310 PRINT " PRESS ANY KEY WHEN YOU ARE READY ": GET K$ 

314 REM ************************************** 

315 REM * INPUT NUMBER TO BE TESTED * 

316 REM ************************************** 
320 HOME 

330 PRINT " ENTER A NUMBER "; 

340 INPUT N$ 

345 REM **************************************** 

350 REM * INITIALIZE THE SUM VARIABLE * 
355 REM **************************************** 

360 LET S = 0 
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Handout iZ 
Page 2 of 3 

Variables arid Strategies 

364 REM *********************************************** 

365 REM * CONVERTING STRING TO NUMERIC VALUE * 

366 REM *. AND FINDING KEY DIGITS * 

367 REM *********************************************** 
370 LET N = VAL (N$) 

380 REM 

390 LEI 11$ = RIGHTS (N$,l) 
400 LET Tl = VAL (Tl$) 
410 REM 

420 LEI 12$ = RIGHT$ (N$,2) 
430 LET T2 = VAL (T2$) 
440 REM 

450 LEI 13$ = RIGHTS (N$,3) 
460 LET T3 = VAL (T3$) 
465 REM 

467 REM ****************************************** 

458 REM * LOOP FOR SUMMATION OF DIGITS * 

469 REM ****************************************** 

470 LEI R$ = N$ 

475 LET P = LEN (R$) 

480 FOR H = P IB 1 STEP - 1 

490 LEI P = LEN (R$) 

500 LET Dl$ = LEFT$ (R$,l) 

110 LET 01 = VAL (Dl$) 

520 LET PV = Di * 10 (M ~ 1} 

530 LET N = N - PV 

535 IF INT (N) - N<0 THEN N = INT (N) + 1 

540 LET R$ = STR$ (N) 

550 LET S = S + Dl 

560 NEXT M 

570 PRINT : PRINT : PRINT 

575 REM 

576 REM ******************************** 

577 REM* DIVISIBILITY TESTS * 
REM ******************************** 

t^y IF Tl I 2 = INT (Tl / 2) THEN PRINT N$;" IS DIVISIBLE BY 2." 

590 IF S / 3 = INT (S / 3) THEN PRINT N$;" IS DIVISIBLE BY 3." 

600 IF T2 / 4 = INT (T2 / 4) THEN PRINT N$;" IS DIVISIBLE BY 4." 

610 IF Tl = 0 OR Tl =5 THEN PRINT N$;" IS DIVISIBLE BY 5." 

620 DIVISIBLE^Y 1 ^'^ ' 3) AN ° T1 1 2 = INT (T1 1 2) THEN PRINT N$ »" IS 

630 IF 13 / 8 = INT (T3 / 8) THEN PRINT IS DIVISIBLE BY 8." 

640 IF S / 9 « ...INT (S / 9) THEN PRINT N$;" IS DIVISIBLE BY 9." 

650 IF Tl = 0 THEN PRINT N$;" IS DIVISIBLE BY 10." 

659 REM ENCOUNTERED PRINTOUT PROBLEMS FOR 660 SO 661 AND 662 WERE ADDED 

660 Tli^VlHEN* (T1 1 2) m ] $ 1 3 "* * INT (S ; 3) AND T1 * * 0 AND 

661 GOTO 665 

662 PRINT N$;" IS NOT DIVISIBLE BY ANY OF THE NUMBERS TESTED." 
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665 REM ******************************** 

670 REM * OPTION TO CONTINUE * 

675 REM ******************************** 

680 PRINT : PRINT : PRINT : PRINT 

690 PRINT " WOULD YOU LIKE TO TRY ANOTHER NUMBER"; 

700 INPUT A$ 

710 IF A$ = "YES" OR A$ = "Y" THEN GOTO 320 

720 IF A$ = "NO" OR A$ = "N" THEN GOTO 790 

730 PRINT : PRINT 

740 PRINT " PLEASE RESPOND WITH EITHER" 

750 PRINT " 'YES' OR 'NO'" 

760 FOR T = 1 TO 1000: NEXT T 

770 HOME 

780 GOTO 690 

785 REM ************************** 

786 REM * ENDING SCREEN * 

787 REM ************************** 

790 HOME 

800 VTAB (7): HTAB (10) 

810 PRINT "HAVE A NICE DAY." 

900 END 



ERIC 
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NAME 

DAT E — 
PERlTfl T" 

ARRAY ASSIGNMENT 1 

Prepare a flowchart for each of the following problems before entering code 
into the computer. 

1. Load 10 values into an array A and 10 values into an array B, and 
construct and output an array C for which every element in C is the sum 
of the corresponding elements in arrays A and B. (Save as ARRAY 1.)* 



2. Often a programmer is required to search through the elements in an 
array to find a specific or "target" value, the number of times it 
appears or the location of the target value. For example, load a 
10-element array M and search the array to find the number of zero 
elements in it. (Save as ARRAY2. )* 



3. Modify problem #2 and search the array M for the positions of the zero 
elements in the array. This problem seeks the subscript designating 
the location in M of each zero value. (Save as ARRAY3. )* 



4. Search an array R of 12 values for the largest value stored in it. 
Output this value and its location. (Save as ARRAY4. )* 



5. Write a program to read the numbers 15, 63, 42, 87, 65, 99, 18 into 
array X, and the numbers 84, 63, 44, 19, 98, 15, 87 into array Y. The 
program should form and print a new list that contains only those 
numbers that are in both lists. (Save as ARRAY5. )** 



*?rom P rog rammi hq Appl e BASJ G by John J. Dielsi, Elaine S. Grossman, 
John P. Tucciarone, pages 227-230; copyright 1984 by CBS College Publishing 
Co., New York, New York. Reproduced with permission. 

** Fr °m Data Processing: An Introduction with BASIC by Donald D. 
Spencer, page 481; copyright (c) 1982 by Charles E. Merrill Publishing Co. , 
Columbus, Ohio. Reproduced with permission. 
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The factorial of a number is calculated by multiplying the number by 
successive smaller integers uncil the number 1 is reached. Here are 
some examples: 

5! =5x4x3x2x1 or 120 
71=7x6x5x4x3x2x1 or 5646 
3!=3x2xl or 6 

Write a program to accept numbers from the keyboard, store them into an 
array, send them to a subroutine to calculate the factorial and print 
out a table similar to the one below. The number 999 will be the 
signal to halt inputs. (Save as ARRAY6. ) 

An example output would look as follows: 

5 factorial = 120 
7 factorial = 5040 
3 factorial = 6 



END OF LISTING 
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NAME 

DATE ~~ 
PERIO D 

QUESTIONS FOR THE VIDEOTAPE, 
"Subscripted Variables and Arrays" 

i; What is meant by a string variable? 

2. How does L$ = "3x5" differ from L = 3x5? 

3. What is meant by subscripted variables? 

4. Distinguish the difference among one-dimensional * two-dimensional and 
three-dimensional arrays. 

5. Illustrate how a FOR-NEXT loop can load an array. 

6. What is a Bubble Sort? 

7. Why is a temporary storage area needed in a Bubble Sort? 

8. Why is it a good idea to use a subroutine for sorting? 



ERIC 
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NAM E 

BAT E 

PERIO D ~~1 

SUBSCRIPT WORKSHEET* 

Determine the output: 



10 


DIM X(12) 


4. 


10 


DIM A(10), B(10) 


20 


FOR L = 1 TO 


12 


20 


FOR J = 1 TO 10 


30 


X(L) = L + 1 




30 


A(d) = d + 3 


40 


NEXT L 




40 


Bid) = d + 7 


50 


FOR J = 1 TO 


2 


50 


NEXT d 


60 


PRINT X(J) + 


X(J + i) ♦ X(J + 2), 


50 


FDR K = 1 TO 10 STEP 2 


70 


NEXT d 




zo. 


PRINT A(K) + B(ll-K) 


80 


ENO 




80 


NEXT K 








90 


END 



2. 10 DIM A(12) 

20 FOR K = 1 TO 

30 A(K) = 2 * K 

40 NEXT K 

50 FOR K = 1 TO 

60 PRINT A(K) + 

70 Next k 

80 END 



12 



3 

A(K 



+ 2) + A(K + 4) 



3. 10 DIM N(12) 

15 S = 0 

20 FOR K = 1 TO 12 

30 N(K) = K + 4 

40 NEXT K 

50 FOR L = 12 TO 10 STEP 

60 S = S + 

70 PRINT S, 

80 NEXT b 

90 END 



6. 



10 DIM X(10) 

20 FOR N = 3 TO 

30 X(N - 2} - N 

40 X(N + 3) = 2 

50 NEXT N 

60 FOR N = 1 TO 

70 PRINT X(N) + 

X(N + 5), 

80 NEXT N 

90 END 



5 STEP 2 
X(N + 3) 



10 DIM B(5) 

15 FOR P = 1 TO 5 

20 B(P) = 5 * P 

25 NEXT P 

30 FOR A = 1 TO 5 

35 B(A) = B(6 - A) 

40 NEXT A 

45 F0R F = 1 TO 3 

50 PRINT B(F) - F, 

55 NEXT F 

60 EIID 



*From pup1icatihg_ M a sters - Exper iencing- BASJ^ by Michael Mulcahy, page 
18; copyright (c) 1984 by Media Materials, Inc., Baltimore, Maryland. 
Reproduced with permission. 
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NAME 
DATE 
PERIOD 



BUBBLE SORT ASSIGNMENT 

Do one of the following three programs. The assignment is worth 50 points, 
and the maximum number of points you can earn for each of the programs is 
listed before the problem. Save as BUBBLEA, BUBBLEB or BUBBLEC. 

38 pts A) Using the following DATA statement, write a program to read in 
and sort the data alphabetically. The program should print out 
the original list and the sorted list. A subroutine should be 
used for the sorting. 



Use this data statement. 



1000 DATA TOM, DICK, HARRY, BOB, MARY, ANN, SUE, ANDY, BOBBIE, 
MARIE 

42 pts B) Write a program that will accept a list of names typed in from 
the keyboard. The program should print out this list and then 
print it out in alphabetical order. The user should first be 
asked how many names he or she will input. A subroutine must 
be used for the sorting. 

50 pts C) Write a program that will accept a person's name and his or her 
test score into two arrays P$(X) and S(X) from the keyboard. 
The program should allow the data to be sorted in either 
alphabetical order or in test score order. The user must be 
allowed to choose the sort order. The output si "Id be similar 
to the samples listed below. Use subroutines or the sorts. 

ALPHABETICAL TEST SCORE 

ANN 75 BOB 82 

BOB 82 or ANN 75 

SUE 70 SUE 70 
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NAM E 

DATE ~ 

PERIOD 

60SBB* 



Determine the output 



15 G0SUB 35 
20 GOSUB 45 
25 GOSUB 40 
30 GOTO 60 

35 X = X + 4 
40 X = X + 9 
45 X = X + 7 
50 PRINT X, 
55 RETURN 
60 END 



3. 10 GOSUB 40 
15 GOSUB 60 
20 PRINT X, 
25 GOSUB 40 
30 PRINT X, 
35 GOTO 70 

40 X = X + 5 
45 GOSUB 60 
50 PRINT X, 
55 RETURN 
60 X = X + 7 
65 RETURN 
70 END 



10 


GOSUB 50 




15 


GOSUB 40 




20 


GOSUB 35 


4. 10 A = 11 


25 


GOSUB 60 


15 GOSUB 40 


30 


GOTO 65 


20 PRINT A, 


35 


PRINT "tr, 


25 GOSUB 45 


40 


PRINT "ME" , 


30 PRINT A 


45 


RETURN 


35 GOTO 


50 


PRINT "SO" , 


40 A - A - 3 


55 


RETURN 


45 A = 2 * A 


60 


PRINT "S" 


50 GOSUB 60 


65 


END 


55 A - 2 * A 






50 A = A - 4 






55 RETURN 






70 END 
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5. 10 FOR B = 1 TO 4 
20 READ D$, D 
30 60SUB 60 
40 NEXT B 
50 GOTO 99 

6U IF D/2 = INT(D/2) GOTO 90 
70 PRINT D$; 
80 PRINT "OOL"; 
90 RETURN 

95 DATA T, 18, 0, 7, F, 8.2, P, 2 
99 END 



*From Pup! ic 
10; copyright (c) 



1984 by 

Reproduced with permission. 



sters - Experiencing BASIC by Michael Mulcahy, page 
Media Materials, Inc., Baltimore, Maryland. 
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NAM E 

PERlW 

CRUNCH* 

In the game of Crunch, 21 sticks prop open the mouth of an imaginary 
alligator. You and the computer take turns removing sticks from the 
alligator's mouth. You may take 1, 2, 3 or 4 sticks eacff turn. The one who 
removes the last stick causes the mouth of the alligator to snap shut and 
loses. 

CRUNCH RULES: 

Start with 21 sticks 

You take 1, 2, 3, or 4 sticks 

Computer check to see if your move is legal - in this game it means 1 : 2, 3, 
or 4 sticks 

Subtract sticks you took 

Calculate computer's move (5 minus your move) 
Print out computer's move 
Subtract computer's move from total remaining 
Check to see if there is one stick left 



You have lost if there is only one stick left 

Otherwise take another turn 

End 



Save as CRUNCH. (100 pts) 

Develop a well-structured and well-documented program. You may add graphics 
and sound to the program. 

Extra-Credit Variations: 

1. Change the number of sticks in the alligator's mou 

2. Change tire number of sticks that may be removed at rn; 

If either of the above changes is incorporated 4 nto 5 H r ogram 4 it 
will be necessary to develop a different strategy. 
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STRATEGY: 

This is a "RIGGED" game because the computer will always win if you go 
first. 

i; Start with 21 sticks. 

2: You may take 1, 2, 3, or h - sticks. 

3; Check to see if you made a "legal" move. 

4. The computer calculates its move which is 5 minus the number of stieks 
you took. 

5. Play continues, alternating between you and the computer, until one 
stick is left. 

6. it will be your tvr.i to take the lone stick. CRUNCH! 



The game is p lav si in multiples of 5. 



YOU TAKE COMPUTER TAKES 

1 4 

2 3 

3 2 

4 1 



stieks at the your move plus sticks left at 

beginning of computer's move the end of the 

the round round 

21 5 16 

16 5 11 

H 5 6 

6 5 1 



After four rounds, 1 stick is left and it is your turn to move. YOU LOSE!! 



♦Adaptation of "Crunch" by Flora Reess; published in Calculators/ 
"S Magazine, 1978. 
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NAME 
DATE 
PERlW 



ARRAY ASSIGNMENT 2 (50 pts) 

Do one of the following two-dimensional array problems. The maximum, number 
of points for each example is given in parentheses. Be sure to include th.^ 
appropriate REM statements for name., date* variable identification and rou- 
tine documentation. Include a flowchart with your program. 

(60 pts ) 1. Assume that an interstate highway system connects cities A, 
Bi C* D* E* Fi G and H jri that order.. The_ distances are: A 
to B: 32 miles; B to C: 49 miles; C to D: 10 miles; D to 
E: 75 miles; E to F: 50 miles; F to G: 63 mi':s; and G to 
H: 43 miles. Write a program using a two-dimensional array 
to produce a mi leage table, listing the total distance along 
the interstate between any two cities. Use one DATA 
statement for the seven mileages given. (Save as MILEAGE.)* 



(55 pts) 2. Use the computer to play a modified game of OTHELLO. Have it 
randomly fill an 8 by 8 string variable array with X's and 
O's and print the result on the screen. The X's are for 
player 1 and the O's for player 2. Have the program ask the 
players al ternately for the row and column of the opponents 
piece tjiat should be f 1 ipped (changed from X to 0 or vice 
versa). All of the opponent 1 s pieces along the horizontal or 
vertical line passing through the flipped piece are also 
fl Ipped. For example, 1f player 1 flipped the 0 at 1,8, the 
board A would be changed to board B. (Save as OTHELLO. )** 

(A) 12 3 4 5 6 7 8 (B) 12 3 4 5 6 7 8 

1XX00X0X0 1XXXXXXXX 

2000XX0XX 2000XX0XX 

3X0XX0X00 3X0XX0X0X 

400X0X0X0 400X0X0XX 

500XXX0X0 . 500XXX0XX 

600X00XX0 600X00XXX 

700XX0X0X 700XX0X0X 

8XX0XX0XX 8XX0XX0XX 



*From Pro g ramming in Apple BASIC by John J. Dielsi, Elaine S. Grossman, 

John P. Tucclarone, page 258; copyright (c) 1984 by CBS College 

Publishing, New York, New York. Reproduced with permission. 

**From A Guide to -P rogramming in Applesoft by Bruce Presley, page 4.20; 
copyright (c) 1S84 by Lawrenceville Press, Lawrenceville, New Jersey. 
Reproduced with permission. 
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(50 pts) 3. Write a computer program to produce the chart similar to the 
one below. The chart should contain the following: year, 
make, selling price, arid total paid for the car. The 
(simple) interest rate and the years to pay are entered 
through the keyboard and may vary each time the program is 
run. (Save as CARSALES.) 

Key board input: Years to pay 

Interest rate (simple) 



Output: 



Input 


from data statements: 


1980 Dodge 


$ 150D 






1983 Chevy 


$ 2730 






1967 VW 


$ 1995 






1932 Model 


T $15821 




interest rate. 


..12% 






Years to pay. . 


..5 




year 


car 


price 


total 


1980 


Dodge 


$ 1500 


$ 2400 


1983 


Chevy 


$ 2730 


$ 4368 


1967 


VW 


$ 1995 


$ 3192 


1932 


Model T 


$15821 


$21314 



(45 pts) 4. Write a program that randomly displays a seating chart for a 
classroom of 20 seats with four rows and five seats in each 
row. There are 18 students in the class. The class list 
should be read in from a DATA statement. Use names: of 6 
letters or less. Unassigned seats should say EMPTY. (Save 
as SEATING.) 

(40 nts) 5. An inventory table contains 10 rows and 5 columns. Load 
the following data: 



item# 


#sold 


cost 


sale price 


total profit 


327 


0 


3.75 


5.49 


0 


159 


0 


4.29 


7.39 


0 


237 


0 


7.89 


9.00 


0 


148 


0 


5.69 


8.50 


0 


265 


0 


3.29 


4.95 


0 


187 


0 


4.99 


7.89 


0 


211 


0 


3.57 


5.50 


0 


304 


0 


6.87 


8.25 


0 


517 


0 


5.29 


7.25 


0 


419 


0 


3.85 


5.29 


0 
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Update the table by entering the number sold for each item. 

Compute (do not enter) the total for the profit column. 

Profit (flsold*(sale price - cost)). Output the entire 

array with suitable headings. (Save as PROFIT.)* 

(40 pts) 6. The sales tax in Hawaii is 4%. Write a program to output a 
table of prices from 25 cents to $b. 00 in steps of 25 cents, 
with the corresponding amounts for sales taxes. (Save as 
STATETAX.) 

(37 pts) 7. Write a program to aeeept as input a 5 by 5 table G. Use 
whatever numbers you want in DATA statements. Display the 
table. Output the smallest element in G and the subscripts 
defining its location in the array. (Save as SMALLEST.) 

(37 pts) 8. Statistics for a nine member baseball team are arranged as 
follows. Load the table and compute the average to 3 digits 
by dividing the number of hits by the number of at bats. 
Output the entire table. (Save as BASEBALL. J* 



player* 


at bats 


#.,its 


# homers 


average 


8 


237 


73 


11 


0 


44 


354 


119 


27 


0 


12 


316 


89 


14 


0 


9 


289 


289 


14 


0 


22 


320 


107 


9 


0 


32 


288 


91 


11 


0 


17 


346 


101 


13 


0 


28 


276 


86 


4 


0 


11 


342 


108 


15 


0 



(33 pts) 9. Construct two 3 by 4 arrays, A and B, all of whose elements 
are random integers between 1 and 10. Construct an array C, 
all of whose elements Are the sums of the corresponding 
elements from A and B. (Save ARRAYADD.)* 

(33 pts) 10. Input a 4 by 4 array A from a DATA statement, and compute and 
print the array B, in which each element is 5 times the 
corresponding element in A. (Save as ARRAYMUL.)* 



*From Prdgrammincj in Apple BASIC , by John J. Die! si , Elaine S. 
Grossman, John P. Tucciarone, page Z56-257; copyright (c) 1 984 by CBS 
College Publishing, New York, New York. Reproduced with permission. 
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NAME 
DATE" 



PERlW 



REVIEW WORKSHEET ON ARRAYS (I)* 

The DIMension statement reserves space for data named by subscripted 
variables. DIM S(12) - reserves 12 locations in the memorv tor the elements 
in array S; 

Elements in an array are named by subscripted variables. The subscript 
distinguishes one element, from another by its location in the array. 

S = 12 -8 0 1 6 3 -1 -9 10 7 -14 -5 

1. It is necessary to reserve space when an array contains more than 

elements. 



2. What values in array S are named by the following subscrioted 
variables . 

S 7_ S 3_ S ll_ S 2_ S 6_ 

3. Write a subscripted variable for each of the following elements in S. 

0 -1 6 -14 12 

4. In BASIC the subscripts are enclosed by . 

5. Write each of the subscripted variables in BASIC. 

V R 12 T J W 16 Z R + S A J 2 



G K+1 X IJ L I-5 



6. A subscript may be a - , a 4 or an 

7. A = 15 23 -15 17 -10 62 18 25 50 100 -1 13 
Write an appropriate DIM statement for the above array. 



8. If I = 2, d = 3, and K = 4, find the value which each BASIC expression 
represents. 

A(D + A(J) ________ A(I + I * J) + A(I * K + I) 

A(K) * A(I*K) A(K - J) - A(J) 



A(J*K/I) + A(I + 6) A(I + J + K) / A(2 * K) 
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9; After space is reserved for ah array, the next step is storing the 
elements of the array in the reserved memory locations; By placing the 
elements of the array in a DATA statement and by using FOR - NEXT 
statements to generate che subscripts, a programmer transfers an array 
into the computer's memory. 

Insert mlssi.ig statements or complete the incomplete statements in each 
program which will store and print arrays. 



10 DIM 

20 FDR 1=1 TO 15 

30 READ S( I) 

40 PRINT S(I) 

50 NEXT I 

50 DATA 35, 

70 END 



10 
20 
30 
40 
50 
50 
70 



FOR J = 1 TO 30 
READ V(J) 
PRINT V 
NEXT J_ 

DATA 25......... 

END 



10 DIM R(12) 

20 FOR K = 1 TO 

30 READ 

40 PRINT R(K) 

50 NEXT K 

60 DATA 15,... v . 

70 END 



All of the rules for variables apply to subscripted variables. Arithmetic 
Operations may be performed using subscripted variables. Strings may be 
named by subscripted variables. 



subsc 

Each program below involves using subscripted Variables for 
the task described in the REM statements. Most errors 
subscripted variables. Find and correct al 1 errors. Rewrite each program 
correctly. 



accompl ishing 
involve the 



CORRECTED PROGRAMS 



10. 10 REM NUMBERING A 

20 REM CLASS LIST 

30 DIM N$(12) 

40 FOR J = 1 to 12 

50 READ N$(J) 

60 PRINT J, N$ 

70 NEXT J 

80 DATA SMITH, MILLER.. 

90 END 



11. 10 REM SUMMING GRADES 

20 DIM G 

30 FOR G = 1 TO 20 

40 READ G(I) 

50 LET S = S + G(I) 

60 NEXT I 

70 PRINT S "IS THE SUM. 

80 DATA 95,62,73, 

90 END 



12. 010 REM MULTIPLY TEST SCORES AVG BY 3 
015 REM MULTIPLY QUIZ SCORES AVG BY 2 
020 REM EVERY THIRD SCORE - TEST SCORE 
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030 DIM S(12) 

040 FOR J = 1 TO 12 

050 IF J=3 OR J=6 OR J=9 OR J=12 THEN 80 

060 LET Q = Q + S(J) 

070 GOTO 90 

080 LET T = T + S(J) 

090 NEXT J 

100 PRINT Q/8 * 2 " IS THE WEIGHTED QUIZ AVG . " 
110 PRINT T/4 * 4 " IS THE WEIGHTED TEST AVG. " 

120 DATA 85,52,91,70, 

130 END 

LET statements and INPUT statements may also be used to store arrays. Find 
the errors and rewrite the following programs correctly. 



13. 


10 


REM WORD ARRAY 




20 


FOR I = 1 TO 25 




30 


PRINT "TYPE THE WORD FOR POSITION 




40 


INPUT W(I) 




50 


NEXT I 




60 


FOR W = 1 TO 25 




70 


PRINT W(L); 




80 


NEXT I 




90 


END 


14. 


10 


REM ASSIGNING POSITIONS 




20 


LET S(l) = 35 




30 


LET S(2) = 95 




40 


LET S3 = S(l) + S(2) 




50 


LET S(4) = S(l) / 5 




60 


FOR I = 1 TO 4 




70 


PRINT SI 




80 


NEXT I 




90 


END 


15. 


10 


REM TWO ARRAYS 




20 


DIM S(15), V(15) 




30 


FOR I = 1 TO 15 




40 


READ S(I) 




50 


NEXT I 




60 


FOR I = 1 TO 15 




70 


LET V = V + S(i) * 5 




80 


PRINT V(I) 




90 


NEXT V 




95 


DATA 8,3,9,1, 




99 


END 



*From Everybody's BASIC by Kay Richardson, pages 61-62, 64; copyright 
(c) 1983 by Meka Publ i string Co., Indianapolis, Indiana. Reproduced 
with permission. 
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NAME 

DATE 
PERIOD" 



REVIEW WORKSHEET ON ARRAYS (II)* 

Two dimensional arrays are practical ways of storlny data. A teacher may 
store an individual student's grades in a single dimensional array* but it 
would be more practical to store all of the students 1 scores in a two 
dimensional array or matrix. 



Name of Stgdent 


Whole Numbers 




QUIZZES 


TESTS _ 


1 


f, 


3 


4 


s 


6 


7 


8 


9 


10 


11 




i 


























c 


























3 


























4 


























nr 


























6 


























7 








i 

















Element; stored in a matrix are identif ie?:' -v t'le in iber of their rows and 
columns . 

A student's name would be located in coU'- ; e and lis or her scores in 
columns trvo through twelve. The row number v. '. Id rent: fy the student. 

It is easy to see that every item iri a K>it*1r ; eeds two subscripts to 
identify its location. 



1. Find the values of the following subscripted variables in matrix B. 
B = 



5 4 3 
9 Z 1 

6 0 5 



6 
2 
7 



B(3,5) = 
B(l,4) = 



B(i*ij 

B(2,5) 



B(2,3) = 
B(2,2) = 



B(3,2) 
B(3,3) 
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2. Insert subscripts to identify the items in the following matrix. 





25 


si 


78 










T = 


1? 


16 


id 












35 


65 














82 


61 


91 










T( 


) = 


17 


T( 


) 


= 91 


T( 


) - 61 


T( 


) = 


65 


T( 


) 


= 78 


T( 


) = 16 


T( 


) = 


25 


T( 


) 


= 82 


T( 


) = 10 



A DIMension statement most include the number of rows and the number of 
columns to reserve space for a matrix. 



4. 



DIM A(3,2) 



Write an appropriate DIM statement for each array. 
10 DIM 



13 

R= 20 
| 12 



45 
15 
19 



23 
30 I 
98 



S= 



9 
19 



15 
35 



89 
90 



0 
9 



1 
6 



7 
55 

0 
12 



32 
75 
1 

45 



15 
8 
1 

85 



99 9 
22 12 
10 1 
5 6 



JOE 


R0NDA 


GREG JANET 


SUE 


JACK 


dUA. JAMLS 


KAY 


f, : PH 


NANCY STACY 


JOHN 


Si ' AN 


T 9« BONNIE 


KATHY 


JUL : £ 


^ DIANA 



N$= 



Insert missing state ^r^.s or complete the incor.v'lete statements in each 
program whicn v. ill stc-f 6 id vrY<-+ ift e a hove mc rices. 



FOR J = i TO 
r 0" I = 1 TO 
READ T(I) 
PiC T T(J,I) 
NEX I 
PRINT 
NEXT J 

DATA 7, 32, . 
DATA 55, .... 
DATA 0, i, .. 
DATA 12, .... 
END 



10 




;G 


10 


20 


FOR I = 




20 


30 


FOR J * . 7'J i 


FOR o - i TO 6 


30 


40 


READ ) 




40 


50 


PRINT 


"'INT 


50 


60 


NEXT 


St ",'1 J 


60 


70 


PRINT 


0 : K"? 


70 


80 


NEXT I 


v : • a 


80 


90 


DATA 13, ...... 


rj • ij 1 ^ 


90 


95 


DATA 20, ...... 


9b r- 19 i ."5.; ... 


95 


98 


DATA 12, ..... 




96 


99 


END 




97 








99 






c3 ^ 
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Each of the following programs, needs additional statements to 
complete. Study the program carefully before inserting statements. 



05 
10 
20 
30 
40 
50 
60 
70 
75 
80 
85 
90 
95 
96 
99 



DIM T(4,6) 
REM 4X6 MATRIX 
REM ADDING COLUMN 4 
FOR I = 1 TO 4 
FOR J = 1 to 6 
READ T(I,J) 
NEXT J 
NEXT I 

FOR I = 1 TO 4 
LET J = 4 



NEXT I 
PRINT S 
PRINT " 
END 



" IS THE SUM" ; 

OF THE 4TH COLUMN. 



05 DIM H(2,3), 8(2,3), V(2,3) 

10 REM ADDING TWO MATRICES 

20 EOR I = 1 TO 2 

30 FOR. J = 1 to 3 

40 READ H(Iid) 

50 READ G(I,d) 

60 

70 PRINT V(I,J), 

75 NEXT_J 

80 PRINT 

85 NEXT I 

90 DATA 2,4, ........ 

95 END 



010 DIM A(4,5), B(4,5) S,(4,5) 150 

020 REM WORKING WITH MATRICES 155 

030 FOR I = 1 TO 4 160 

040 FOR J = 1 TO 5 165 

050 170 

060 READ B(I,J) 175 

070 NEXT J 180 

075 NEXT I 185 

080 REM MULTIPLYING MA I RICE A 190 

081 REM BY 10 195 
090 FOR 1=1 TO 4 200 
095 FOR J = 1 TO 5 210 

099 220 

100 PRINT S(Iid)i 230 
110 NEXT J 240 
115 PRINT 220 
120 NEXT I 300 
125 REM ADDING MATRIX A 310 
130 EOR I = 1 TO 4 

135 FOR d = 1 to 5 
140 

145 PRINT M " IS THE SUM." 



NEXT o 
NEXT 

REM ADDING 



ROW 2 OF MATRIX A 



LET I = 2 

LET D = D + A(I,J) 

NEXT J 

PRINT "THE SUM OF ROW 2 IS " D 

REM FINDING A SPECIAL VALUE IN I 

FOR I = 1 TO A 

FOR J = 1 TO 5 

IF B( I , J) = 16 THEN 230 

PRINT "SIXTEEN IS IN MATRIX B." 
NEXT I 
NEXT J 

DATA 14. 18, 23 

END 



Assume each of the following matrices have been properly stored in the 
computer's memory. Insert appropriate statements to accomplish the 
task described. 



A = 



l 2 5 



6 
1 



8 
0 





6 


7 




15 


35 


95 




1 


3 


5 


B = 


0 


0 


C = 


20 


25 


30 


D = 


6 


4 


2 




2 


3 




65 


70 


40 




0 


7 


-9 



64 



65 



6. Search matrix D for negative 
values and change them to 
positive values. 



100 REM NEGATIVE TO POSITIVE 

110 FOR I = 1 10 2 

120 FOR J = 1 TO 3 

130 

140 GOTO i6C 

150 LET D(I,J) + -1 * 0(1, J) 

160 NEXI J 

170 NEXT I 

7. Form a new matrix E by subtrac- 
ting matrix D from matrix G. 



200 REM NEW MATRIX E 
205 DIM E(3,3) 
210 FOR I = 1 10 3 
220 FOR J = 1 TO 3 
230 

240 NEXT J 

250 NEXT I 

8. Change all t. j values in rev/ 

two in matrix C to zero. 



300 REM ROW 2 TO ZERO 
310 FOR J = 1 TO 3 
320 
330 

340 NEXT J 

9. Count all of the elements 
equal to zero in matrix B. 



400 REM COUNTING ZEROS 

410 FOR I = 1 TO 3 

420 FOR J = 1 TO 2 

430 IF B(I,J) = 0 THEN 450 

440 GOTO 460 

450 

460 NEXT J 

470 NEXT I 



Handout #10 
Page 7 of 8 

Variables and Strategies 

10. Compare the elements in matrix C to 
matrix D and print any elements 
which are contained in both. 

500 REM COMPARING C AND D 

505 REM PRINT COMMON ELEMENTS 
510 
520 

530 IF C(i,jj = D(I,J) THEN 550 

540 GOTO 560 

550 PRINT C(I,J);" IS IN D AND C" 
560 

11. Add rows 1 and 2 in matrix A to 
form array G. 

600 REM SUM OF ROWS 1 AND 2 

610 LET I = 1 

620 FOR J = 1 TO 3 

630 

640 PRINT E(J) 

650 NEXT J 

12. Add columns 1 and 2 in matrix D to 
form matrix H(3,2) . 

700 REM FORM MATRIX H 
710 

720 FOR J = 1 TO 3 
730 

740 NEXT J 

750 FOR I = 1 TO 3 

760 FOR J =1 TO 2 

770 PRINT H(3,2), 

780 NEXT 3 

790 

800 NEXT I 



*From Everybody [s BASIC by Kay Richardson, pages 65-68; copyright (c) 
1983 by Meka Publ ishing Co. , Indianapolis, Indiana. Reproduced with 
permission. 
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Design and code a program that will generate the following output. U 
Data statements provided below. 

Number Items Sold 

NAME JAN FEB MAR *T0TAL* 

Company A 500 350 725 _______ 

Company B 468 410 750 

Company C 389 310 500 

Company D 206 600 463 



TOTAL 



DATA A,B,C,D 

DATA 500,350,725 

DATA 468,410,750 

DATA 389,310,500 

DATA 206,600,453 
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NAME 
DATE! 
PERlTJF 



Determine whether each of the 
following statements is valid or 
invalid. If invalid, state the 
syntax rule violated. 



a. 
b. 
c. 
d. 
e. 



100 A(I) = I 



B2(3) THEN 100 



100 I = A(I) 
100 A = A(P 
100 IF 33(2, = 
100 DIM A(12) 
110 PRINT A 

f. 100 I = -3 
110 A(I) = 2 

g. 100 A$(2) = "BILLY" 

h. 100 A$(2) = B$ 

i. 100 A(I+J) = A(I) + 
j. 100 A(I) + «(J) = A(I+J) 
k. 1GU A{k" = AU*J) 



2. What would be stored in array A as 
a result of the following program? 

100 FOR K = 1 TO 5 
110 A(K) = K*2+l 
120 NEXT K 

3. What would be printed by this 
program? 

100 DIM A(5), N$(5) 

110 FOR K = 1 TO 5 

120 READ A(K) 

130 NEXT K 

140 FOR K = 1 TO 5 

150 READ N$(K) 

160 NEXT K 

170 FOR K = 1 TO 5 

180 PRINT A(K), N$(K1 

190 NEXT K 

200 DATA 8,2 t 0,8,43,BEN,JEN s SAM, 

JESS.ALLIE 
210 END 

67 



4. Why would this program produce 
an error message? 

1.00 DIM A(5), N$(5) 

110 FOR K = 5 TO 1 STEP -1 

120 READ A(K) , N$(K) 

130 NEXT K 

140 FOP. K = 1 TO 5 

150 PRINT N$(K), A(K) 

tcO NEXT K 

'•'0 DATA 8, 2,0,8, 43, BEN, JEN, SAM, 

JESS.ALLIE 
180 END 



5, What will be printed by this 
program? 

100 DIM A(10), B(10) 
110 FOR K = 1 TO 10 STEP 2 
120 READ A(K) 
130 NEXT K 

140 FOR K = 2 TO 10 STEP 3 
150 READ B(K) 
160 NEXT K 
165 1=0 
170 FOR K = 1 TO 
180 
190 
200 
210 
215 



10 

IF A(K) = B(K) THEN 220 
TS = B(K) 
B(K) = A(K) 
A(K) = TS 
1 = 1 + 1 
220 NEXT K 
230. FOR K = 1 TO 10 
240 PRINT A(K), B(K) 
250 NEXT K 

2fO PRINT "THE NUMBER OF INTER- 
CHANGES IS ";I 
270 DATA 3, -9, 2, 8, 1, 4, 2, 3 
280 END 
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6. 6iveh array A and variable I and J with the 
following values stored in memory: 



A(l) A(2) A(3) A(4) A(5) A(6) I d 



7.2 0 -1.1 88 -12.3 2 3 



Evaluate each of the following: 

a. A(I) b. A(I* 2) . . 

c. A(I+3) d. A(3) + A(I) 

e. A(I) * A(I) f. 2 * A(2) 

g. A(I)/A(1) * A(J) h. ABS(INT(A(4))) 

i. SQR(A(1)) j. J * A(d ) 

k. A(d-I) 1. A(J) - A(I) 



7. In reference to the above array A and 
variables I and J, identify each of the 
following as valid or invalid. 



a. -1 * A b. SQR(A(J)) 

c A(m(1)) d. A(I*5) 

e. 5A(I) 



8. Given a two-dimensional array 5 which is 

5 by 5, write a line or lines of code hat 
will display the: 

a. Fourth row of S 

b. First column of S 

c. Rows 2 through 4 

d. Columns 1 and 5 

e. Main diagonal of S 

f. The element in the center of S 

9. Given array M and variables I &nd J with the 
following values stored in memory: 



M(D M(2) M(3) M(4) M(5) M(6) M(7; M(SJ I J 

3 4 1.0 2 12 8 -100 6 3 ? 
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What would be the output of the following program? 



• 

160 M(5) = M(tj + M(J) 
110 M(I) = M(i) + M(j) 
120 M(6) = M(I+J) 
130 M(7) = M(t*j) 
140 M(J) = M(I) 
150 M(I) = M(J) 
160 M(I-J) = 2? 
170 M(I*J) = 0 
180 FOR K = 1 TO C 
190 PRINT M(K) 
200 NEXT K 



- *From Programming in Appl e BAS IC by John J. Oielsi, Elaine S. Grossman, 
John . P. Tueeiarone, pages 253-255; copyright (c) 1984 by GBS College Pub- 
lishing, New York, New York. Reproduced with permission. 
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NAME 
DATE- 
PERM 

ERROR-CHECKING SUBROUTINE 

010 REM ***MAIN PROGRAM*** 

020 HOME 

030 INPUT "LOAN AMOUNT" ; L 

040 S = t : REM LOADING SUBROUTINE NUMBER 

050 G0SUB 150 

050 INPUT " INTEREST RATE"; I 

070 S = I : REM LOADING SUBROUTINE NUMBER 

080 60SUB 150 

090 INPi'f "YEARS T0 PAY"; Y 

100 S.= Y : REM LOADING SUBROUTINE NUMBER 

110 GOSUB 150 

120 REM ***ALL ENTRIES CHECKED. . .OUTPUT FOLLOWS*** 

130 PRINT "ALL NUMBERS ACCEPTED" 

140 GOTO 260 

150 REM ***SUBR0UTINE FOR ENTRY CHECK*** 

150 IF S > 0 THEN 250 

170 HOME 

180 FOR C = 1 TO 10 

190 PRINT " ILLEGAL ENTRY. .. START OVER!" 

200 PRINT 

210 FOR D = 1 TO 50 

220 NEXT D : REM DELAY LOOP 

230 NEXT C 

240 FOR D = 1 TO 500 : NEXT D : RUN 

250 RETURN 

260 END 
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DEBUGGING EXERCISE* 
HOTEL CHARGE PROGRAM 



DIRECTIONS: The program below contains errors. Locate the lines causing 
the errors and correct (DEBUG) them in the space provided. 



C = cost D = days N$ = name R$ = rate(class A or B) 

010 REM***H0TEL CHARGE PROGRAM*** 

020 PRINTTAB(7); "HOTEL RESIDENTS" 

030 PRINT ~ 

040 PRINT' <\B(5); "NAME" \ TAB(17); "DAYS"; " ' 

TAR (23); "CHARGE" 

050 PR*. — 

050 READ 3, k 

070 IF N$ - £ iO Of DATA" THEN 230 " 

080 IF R = A iHEN 110 ~ 

090 IF R = B THEN 140 

100 PRINT ERROR IN DATA OF"; N " 

no GOTO 60 

120 C = D * 40 — 

130 GOTO 150 " 

140 C = D * 50 ' 

150 PRINT N$; TAB 17 : D; TAB 24: "$"; C ' 

160 GOTO 6 r 

170 REM**- **»DATA******* — — ' " 

180 DATA BILL WILLIAMS, A, 3 ~ 

ISO DATA DONNA STANLEY , 2, B ' 

200 DATA BOB FRENCH, A, 1 

210 DATA VIRGINIA OWEN, 4, B 

220 DATA END OF DATA. 0, 0 ~~_ 

230 PRINT "END CF PROCESSING" 

240 END 



When the above program is DEBUGGED it will produce the following output: 

HOTEL RESIDENTS 



NAME 


DAYS 


CHARGE 


BILL WILLIAMS 


3 


$120 


DONNA STANLEY 


2 


$100 


BOB FRENCH 


1 


$ 40 


VIRGINIA OWEN 


4 


$200 



END OF PROCESSING 



♦Further reproduction is prohibited. See footnote on page 77. 
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DEBUGGING EXERCISE* 
AIRPLANE FLIGHTS 

DIRECTIONS: The program below contains errors. Locate the lines causing 
the errors and correct (DEBUG) them in the spaee provided. 

C$ = Chicago F$ = Flight M$ = Memphis N$ < New York 

010 REM THIS PROGRAM IDENTIFIES SELECTED 

020 REM FLIGHTS LEAVING MEMPHIS, ~~ " 

030 REM CHICAGO, AND NEW YORK 

040 PRINT "ENTER CITY INITIAL TO DISPLAY 

FLIGHT NUMBER AND DEPARTURE TIME 

050 PRINT "C = CHICAGO" 

060 PRINT "M = MEMPHIS" 

070 PRINT "N = NEW YORK" ~ 

Ov^O PRINT "ENTER C, M, OR N FOR FLIGHT 

NUMBER AND DEPARTURE TIME" 

090 OUTPUT F$ ~ — ; 

100 IF F$ = "C$" tr&A .150 

110 IF FS = "M$' THEN 1)0 

' 20 IF F$ = u n$" THEN ,00 — 

160 PRINT "PLEASE TRY AGAtN" — 

140 cC'f 50 

150 PRINT "FLIGHT 445 — DEP. 10:05A — 

160 PRINT "FLIGHT 427 — DEP. 2:15P ~~ — 

170 PRINT FLIGHT 458 — DEP. 3:15P" ~~ 

180 "OTO 250 ' 

190 PRINT FLIGHT 442 — DEP. 7: ISA" — 

200 PRINT "FLIGHT 492 — DEP. 730A" — 

210 PRINT "FLIGHT 408 — DEP. 4:05P" "~~ — 

220 GOTO 250 Z 

230 PRINT "FLIGHT 405 — DEP 10:52A — . 

240 PRINT "FLIGHT 409 — DEP 10:25A " " "~ — 

250 PRINT " 

260 PRINT "END OF SCHEDULE" ~ 

270 END 



When the above program is DEBUGGED it will produce the followin output: 

; .VTER CITY INITIAL TO DISPLAY FLIGHT NUMBER 
«ND DEPARTURE TIME 
C = CHICAGO 
M = MEMPHIS 
N = NEW YORK 

ENTER C, M, OR N FOR FLIGHT NUMB EH AND 
DEPARTURE TIME 
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(If a numeric character or an alphabetic character other than C, M, or N is 
entered, the following prompt will be displayed-f oil owed by the output 
displayed above.) r 

PLEASE TRY AGAIN 



♦Further reproduction is prohibited. See footnote on page 77. 
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debugging exercise* 
Utility billing list 

DIRECTIONS: The program below contains errors. Locate the lines causing 
the errors and correct (DEBUG) them in the space provided. 

AD = amount due PB = previous balance TB = total billing this period 

CN = customer number T = total customers TD = total delinquent amount 

did Rem Utility billing list 

020 T = 0: TD = 0: TB = 0 

030 READ CN, PB, A 

040 PRINT 

050 IF CN = 0 THEN 90 

060 AD = A 

070 IF PB = 0 THEN 130 ~ 

080 AD = AD + PB ~~ 

090 TO = TO + PB ' 

100 PRINT CN: " AMOUNT DUF." : AD; 

" AMOUNT OVERDUE"; PB 

110 T = T+1 ~ 

120 TB TB AD 

130 GOTO 30 

140 PRINT m 

150 PRINT T: "CUSTOMERS PROCESSED" ~ 

160 PRINT TOTAL BILLING THIS PERIOD = "; 

TB 

170 PRINT TOTAL DELINQUENT AMOUNT = "; 

TD 

180 PRINT "END OF REPORT" ~ 
190 DAIA 101,0.00,34.52,107,0.00,32.69 ~ 

200 DATA 134,0. 00, 29„80, 152, 31. 79, 33. 41 

210 END 

When the above program is DEBUGGED it will produce the following output: 



101 AMOUNT DUE 34.52 
AMOUNT OVERDUE 0 



107 AMOUNT DUE 32.69 
AMOUNT OVERDUE 0 

134 AMOUNT DUE 29.80 
AMOUNT OVERDUE 0 

152 AMOUNT DUE 65.20 
AMOUNT OVERDUE 31.79 
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4 CUSTOMERS PROCESSED 

TOTAL BILLING THIS PERIOD = 162.21 

TOTAL DELINQUENT AMOUNT = 31.79 
END OF REPORT 



♦Further reproduction is prohibited. See footnote on page 77. 
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DEBUGGING EXERCISE* 
CABLE TV BILLING 

Directions: The program below contains errors. Locate the lines causing 
the errors and correct (DEBUG) them in the space provided. The local TV 
cable company charges $15.00 for regular hookup and HBO arid an additional 
$7.00 for Cinemax, Source, arid "Special Offerings." 

A = amount of service S$ = service (H/S) TA = total amount of billing 
CN = customer number T = total customers TH = total HBO customers 



010 REM CABLE TV BILLING 

020 T = 0; TA = 0; TH = 0 

030 READ CN, S$ 

040 IF CN = 0 THEN 130 

050 T = T + 1 

060 A = 7.00 

070 IF S$ = "S" THEN 100 

080 TH = TH + ;1 

090 A = A + IS. 00 

100 TA = TA + A 

110 PRINT CN: "AMOUNT DUE"; A 

120 GOTO 40 

130 PRINT 

140 PRINT T: "CUSTOMERS PROCESSED" 

150 PRINT "TOTAL BILLING ="; TA 

160 PRINT "NOMBER HBO CUSTOMERS = "; TH 

170 PRINT "END OF REPORT" 

180 DATA 1112, S, 1213, H, 1310, S 

190 DATA 1401, H, l47 c H, 1523, S 

200 DATA 1577, H, 1603, S; 1776, H. 

210 DATA 0, 0. 

220 END 



♦Further reproduction is prohibited. See footnote on page 77. 
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When the above program is DEBUGGED it will produce the following 
output: 



1112 


AMOUNT DUE 


15 


1213 


AMOUNT DUE 


22 


1310 


AMOUNT DUE 


15 


1401 


AMOUNT DUE 


22 


1479 


AMOUNT DUE 


22 


1523 


AMOUNT DUE 


15 


1577 


AMOUNT DUE 


22 


1603 


AMOUNT DUE 


15 


1776 


AMOUNT DUE 


22 



9 CUSTOMERS PROCESSED 
TOTAL BILLING = 170 
NUMBER HBO CUSTOMERS = 5 
END OF REPORT 



* From a set of 50 masters and 74 visual masters, Micro 5: Reviewing 
and Debugging, copyright (c) 1984. Full sets available from the publisher, 
J. Walch, Publisher, Portland, Maine 04104-0658. Used by permission. 
Further reproduction is prohibited. 
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NAM E 

dat e: ~ 

PERlflC 

MAT- READ, MAT-PRINT, MAT- INPUT STATEMENTS* 

PROGRAM: 

10 REM PROGRAM READS AND PRINTS A 5X8 MATRIX 
20 DIM M(5,8) 
30 MAT READ M 
40 MAT PRINT M; 

50 DATA 45,58,59,75,74,76,86,94,13,12,41,63,52,20,37,29,18,24,16,35 
60 DATA 30,56,31,24,25,65,64,98,87,82,81,73,50,60,86,94,83,41,62,31 
70 END 



OUTPUT: 



45 


58 


59 


75 


74 


76 


86 


94 


13 


12 


41 


63 


52 


20 


37 


29 


18 


24 


16 


35 


30 


56 


31 


24 


25 


65 


64 


96 


87 


82 


81 


73 


50 


60 


86 


94 


83 


41 


62 


31 



PROGRAM: 

010 REM PROGRAM ADDS ROWS AND ELEMENTS OF A 3X3 INPUT MATRIX 

030 DIM M(3,3) 

045 PRINT "TYPE IN THE MATRIX AFTER THE QUESTION MARK" 

050 MAT INPUT M 

055 PRINT 

060 T=0 

070 FOR I = 1 TO 3 

080 R(I)=0 

090 FOR J = 1 TO 3 

100 R(I)=R(I)+M(I,J; 

110 NEXT J 

120 T=T+R(1) 

130 NEXT I 

140 MAT PRINT M; 

145 PRINT : PRINT 
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150 FOR 1= 1 TO 3 

160 PRINT " THE TOTAL FOR ROW " ; I ; " IS ":R(D 
170 NEXT I K J 

180 PRINT "THE TOTAL OF ALL ELEMENTS *S ";T 
220 END 



OUTPUT: 

TYPE IN THE MATRIX AFTER QUESTION MARK 
? 1,2,3,4,5,6,7,8,9 

1 2 3 

4 5 6 

7 8 9 

THE TOTAL FOR ROW 1 IS 6 
THE TOTAL FOR ROW 2 IS 15 
THE iOTAL FOR ROW 3 IS 24 
THE TOTAL OF ALL ELEMENTS IS 45 



* From The BASICS of BASIC by Alfredo C. Gomez, pages 192, 194: 
copyright (c; 1 983 by CBS College Publishing, New York, New York. 
Reproduced with permission. 
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HIERARCHY CHART 



Basic Computer Processing Steps: 




Computer 
Processing 



PROCESSING 



OUTPUT 



Basic Hierarchy Chart: 



GET DATA 



Main 



CALCULATE 
DATA 



PRINT DATA 
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NAME 
DATE 



PERIOD" 



DESIGNING HIERARCHY CHARTS and PF;G3R#.MS* 

Many employees are paid on an hourly basis. That is, the 

amount of pay is determined by multiplying the number of hours 

worked times the hourly rate of pay. The product of this 



any deductions are made for income tax. Social Security (FICA), 
etc. Write a program to calculate' and print gross pay. The 
program should clear the screen prior to beginning the print- 
out. It should *hen print each employee's name, number of 
hours worked, pay rate, and gross pay. The data to be used by 
the program should be on DATA lines. The first item is the 
employee's name, followed by the number of hours worked and the 
pay rate. Here are the data lines: 

5000 DATA "ABLE, MARTHA" , 40, 5.20 
5010 DATA "CARDWEL'., HELEN" , 38, 4.83 
5020 DATA "MIMMS, FRED" , 35.5, 3.97 
5030 DATA "SMITH, MARILYN", 40, 3.97 
5040 DATA "WILLIAMS, JAMES" , 38, 5.20 
5050 DATA "EOD", 0, 0 

Make the output as neat and easy to read as possible. Use an 
appropriate main heading arid column headings, with the column 
headings al igned. The submodules used in the program might be 
Get Data, Calculate, and Print Payroll . 

Frequently employees are paid U times their regular rate for 
any hour wo. ked beyond 40 each week. These hours beyond 40 are 
referred to as overtime. Write a program similar to Program 1 
(or modify Program 1) so that employees receive their regular 
pay for thf. first 40 hours and If times their regular rate 

for hours over 40. The |.rintet<t should contain columns for 
employee name, number of regular hours worked, number of over- 
time hours worked, regular pay rate, amount of regular gross 
pay, amount of overtime oross pay, and total gross pay 
(regular and overtime added together). The data lines to be 
used are: 



8000 DATA "BURT, WILSON", 40, 4.21 
8010 DATA "CALMER, HELEN", 43, 3.90 
8020 DATA "JONES, SARAH" , 42.75, 5.45 
803C DATA "KEITH, WILLIAM", 38, 5.20 
8040 DATA "MICHAELS, FRANK", 49, 4.80 
8050 DATA "EOD", 0, 0 



multipl ication 




the amount of pay before 



81 



82 



Handout #15 
Page 3 of 3 

Variables and Strategies 

Program 3 Modify Program 2 so that the number of hours worked is input 
from the keyboard rather than being read from data lines. In- 
clude an error trap in the program to ensure against accidental 
entry of too many hours. Company policy prohibits any emplo- 
yee from working more than 50 hours per week. 

Enrichment Many businesses have salaried employees and commissioned 
Program employees in addition to hourly employees. Salaried employees 
receive the same amount of gross pay regardless of the number 
of hours they work. Commissioned employees receive a percen- 
tage of their sales as p*y. A program to figure the payroll 
for such a business needs to be able to handle all the types of 
pay calculation. _ In other wor s, there ohould be a separate 
* "^module for calculation of each type of gross pay, with the 
opriate oue being called by the main module. 

Write such a program. Use data lines to hold constant data, 
such as r..;ne, pay type, and rate. Enter variable data, such as 
hours worked or amount of sales from the keyboard when the 
program is run. Here are the data. They are not arranged 
properly for data lines. 



Suggested 

Employee Name Type Rate Input 



Copenhaver, W. Hourly 4.97 43 hours 

Croan, P. Salary 258.09 

Haley, B. Salary 263.00 

Ivanoski, G. Commission 9% $4000 in sales 

Jump, R. Hourly 5.90 40 hours 

Laseur, K. Hourly 4.50 41 hour^ 



*STRUCTURED BASIC by Clark and Drum, Chapter 8, pp. 131-132; copyright 
(c) 1983 by South-Western Publishing Company, Cincinnati, Ohio. Reproduced 
with permission. 
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NAME 

DATE 
PERIOD" 



MESU-BRIVEN PROGRAMMING ASSIGNMENTS* 

1 Bookstore listing of books are to ue prepared utiMzinq the 
following MENU: y 



BOOKSTORE MENU 

CODE FUNCTION 

1 Enter Book information 

2 List Books by Title 

3 List Books by Author 

4 End Program 

ENTER 1, 2, 3 or 4 TO HAKE SELECTION: 

For CODE 1 the following screen should be developed using six 
books to be entered by the user. 

ENTER BOOK INFORMATION 

*00K NUMBER 1 

Book Title. 
Book Author: 
Quantity: 
Bock Price: 

(DATA lines with REAB iste terients may be used while develcpi;:*: 
and testing the program. INPUT statements must be used for the 
finished program. ) 

For CODE 2 the following report should It displayed: 
BOOK REPORT BY TITLE 



Title Author Qty Price 

Fast Water Nuoiovich 8 12.95 

Sea and Stone Allergen 21 14.95 

Shock Light Brannigan 14 15.95 

The Marchers lotay 8 10.95 

Torch Gas Criterer 12 12.95 

Winds of Time Pollutey 4 12.95 



Tota] Quantity: 67 
Total Value: $ 935.65 
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DEPRESS ENTER OR RETURN KEY TO RETURN TO THE f-3!U: 
For CODE 3 the following report should be displayed: 



BOOK REPORT BY AUTHOR 



Author 


Title 


Qty 


Price 


Al lergen 


Sea and Stone 


8 


12.95 


Brarinigan 


Shock Light 


21 


14.95 


Critener 


Torch Gas 


14 


15.95 


.iota? 


The Marchers 


8 


IB. 95 


Numovich 


Fast Water 


12 


12.95 


Pollutes 


Winds of Time 


4 


12.95 



DEPRESS ENTlR OR RETURN KEY TO RETURN TO THE MENU: 

Program 2 Class listings for a school are to be prepared. A program 

should be designed and coded to produce the following listings: 

CLASS MENU 

CODE FUNCTION 

1 Enter Clasi, Information 

2 Display in Class Name Sequence 

3 Display in Teacher Name Sequence 

4 Obtain Teacher Name and Enrollment 

5 End Program 

ENTER 1, 2, 3, 4 or 5 TO MAKE SELECTION: 

For CODc 1 the following screen should be developed. 

ENTER CLASS INFORMATION 

CLASS NUMBER 1 

Enter Class Name: 
Enter Teacher Name: 
Enter Enrollment: 

For CODE 2 the following screen should be developed. 

DISPLAY CLASS NAMES IN SEQUENCE 



Class Teacher Enroll. 

Bus 231 Harrelson 128 

Bus 429 Abbot 32 
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Che 112 Chemonte 359 

Che 213 Zunderrey 21 

Phy 101 Nommerrei 573 

Sdc 219 Berret 45 

Total Enrollment: i : 

DEPRESS ENTER OR RETURN KEY T! ?N TO THE MENU: 

For CODE 3 the following screen should be developed: 

DISPLAY TEACHER NAMES IN SEQUENCE 



Teacher 


Class Name 


Enrol 1 . 


Abbott 


Bus 429 


32 


Berret 


Sbc 219 


45 


Chemonte 


Che 112 


359 


Harrel son 


Bus 231 


128 


Nommerrei 


Phy 101 


5Z3 


Zunderrey 


Che 213 


21 


Total Enrollment: 


1,158 



DEPRESS E NT OR RETURN KEY TO RETURN TO THE MENU: 

For CODE 4 the 'ill owing screen should be developed: 

OBTAIN TEACH E; NAME AND ENROLLMENT 

Enter Class Name: 
Enter Teacher Name: 
Enter Enrollment: 

DEPRESS ENTER OR RETURN KEY TO RETURN TO THE MENU: 



* INTRODUCTION TO BASIC PROGRAMMING by Shelly and Cashman, Chapter 8, 
pp. 8.58-8.61; copyright (c) 1982 by Anaheim Publishing Company, Brea, 
California. Reproduced with permission. 

85 



86 



Handout #.ly 
Page 4 of 5 

Variables and St , .^gies 

POSSIBLE SOLUTION TO MENU-DRIVEN PROGRAM 1 

0100 REM THIS PROGRAM ENTERS BOOK INFORMATION, PRINTS A REPORT bV TITLES 
0110 REM OR BY AUTHOR THROUGH THE U3L OF A MENU. 
0120 REM FOR THE TRS-80 MODEL 4 AND IBM PC COMPUTERS 
0130 REM 
0140 1 

0150 REM VARIABLE NAMES USED 

0160 ' BOOK.TITLE$()=BOOK TITLE ARRAY 

0170 1 AUTHOR$( )=NAME OF AUTHOR ARRAY 

0180 ' QUANTITY( )=QUANTITY ARRAY 

0190 1 PRICE()=PRICE ARRAY 

0200 ' N=NO. OF ITEMS IN ARRAY 

0210 ' CHOICE=MENU SELECTION 

0220 ' S=SUBSCRIPT FOR ARRAY 

0230 ' TOT.QUANT=TOTAL QUANTITY 

0240 1 TOT.PRICE=T0TAL PRICE 

0250 ' GRAND. TOT=GRAND T01AL 

0290 ' 

0300 REM*** r -!ITIALIZATION OF VARIABLES*** 
0310 N=6 

0320 h> "\ \ \ \ n ##.##" 

0330 Fl$ = " \ \ \ ## ##.##" 

0340 DIM BOOK.TITLE$(N), AUTHORS (N) : f(N), PRICE(N) 

0350 ' 

0500 REM***MAIN MODULE - DISPLAY MENU AND GLT SELECTION*** 
0510 CLS 

0520 PRINT: PRINT: PRINT: 

0530 PRINT TAB (15) "BOOKSTORE MENU" : PRINT 

0540 PRINT TAB; 10) "CODE" TAB (20) "FUNCTION" : PRINT 

0550 PRINT TAB ( II } "1" TAB (15 "ENTER BOOK INFORMATION" 

0560 PRINT TAB(ll) "2" TAB (15) "LIST BOOKS BY TITLE" 

0570 PRINT TABfiij "3" TAB (15 "LIST BOOKS BY AUTHOR" 

0580 PRINT TAB(ll) "4" TAB (15) "END PROGRAM" 

0590 PRINT 

0600 INPUT "ENTER A NUMBER 1 THROUGH 4: "; CHOICE 
0610 IF CHOICE =-=1 AND CHOICE <=4 THEN 0660 
0620 PRINT 

0630 PRINT " "; CHOICE; " IS INVALID" 

0640 INPUT " PLEASE. RE- ENTER 1, 2, 3 OR 4: "; CHOICE 

0650 GOTO 0610 

0660 IF CH0ICE=4 THEN 0690 

0670 ON CHOICE GOSUB 1000, 2000, 3000 

0680 GOTO 0500 

0690 PRINT: PRINT "END OF BOOKSTORE PROGRAM" 
0700 END 
0730 ' 

1000 RFM***EN'i . BOOK INFORMATION*** 
1010 CLS 

1020 FOR S=l TO N 
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1030 

1040 

!050 

1C60 

1070 

1080 

1085 

1090 

1100 

2000 

2010 

2020 

2025 

2030 

2040 

2C50 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 
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PRINT "ENTERING BOOK INFORMATION": PRINT 
PRINT "BOOK NUMBER "; S: PRINT 

INPUI " ENIER TITLE OF BOOK: "; BOOk.TITLE$(S) : PRINT 
INPUT " ENIER AUTHOR OF BOOK: A!>THOR$(Sj: PRINT 
INPUT " ENIER QUANTITY: "; QUANTiTY(S): PRINT 
INPUT " ENTER PRICE OF BOOK: "; PRICE(S): PRINT 

NEXT S 

RETURN 

1 

REM***LIST BOOKS BY TITLES*** 
CIS 

PRINT" TITLE AUTROR QTY PRICE": PRINT 

TOT,QUANT~C : TOT.PRICE=0 : GRAND. TOT=0 
FOR S=l TO N 

PRINT USING E$; BOOK. TITLES (S) ; AUTHORS(S); QUANTITY(S); PRICE(S) 
TOT. QUANT= TOT. QUANT -"-QUANTITY (S) 
TOT.PRICE=QUANTITYiS) * PRICE(S) 
GRAND. TOT=GRAND.TOT+T0To PRICE 
NEXT S 

PRINT: PRINT: PRINT "TOTAL QUANTITY: "; TOT. QUANT 
PRINT: PRINT "TOTAL VALUE: "; GRAND. TOT 
PRINT: PRINT "PRESS ENTER TO CONTINUE": PRIN T 
INPUT " RETURN TO MENU" ; RESPONSES 
RETURN 



OiO 



**LIST BOOKS BY AUTHOR*** 



3020 REM***SORTING ROUTINE*** 
3030 PRINT "SORTING" 
3040 FOR Bl=l TO N-l 
3C50 FOR B2=B1+1 TO N 

3060 IF AUTH0R$(B2)>=AUTH0R$(B1) IHEN GOTO 3110 

3070 SWAP BOOK.PTLE$(BI), B00K.TITLE$(B2) 

3080 SWAP AUTHOR^Bl), AUYR0R$tB2j 

3090 SWAP QUANTITY(B 1 .} ? QUANTITY^ 82) 

3100 SWAP PRICE(Bl), PRICE(B2) 

3110 NEXT B2 
3120 NEXT Bl 
3130 CLS 
3140 PRINT " 
3150 PRI •* " AUTHOR 
3160 FOr. ' -x TO N 
3170 



BOOK REPORT BY AUTHOR": 
TITLE 



PRINT 

QTY PRICE": 



PRINT 



D .<INT USING Fl$; AUTHOR$(S); BOOK.TITLE$(S) ; ^UANTITY(S); PRICE(S) 

3190 PRINT: INPUT "PRESS ENTER TO "^TINUE"; RESPONSE! 
3200 RETURN 
3210 ' 



SAMPLE ACTIVITY CLUSTER #4 



BASIC Functions and Graphics 



Topics : 

1. Intrinsic Mathematical functions 

2. Intrinsic String Manipulation Functions 

3. User-Defined Functions 

4. ;!igh-Resolution Graphics 

Classroom Management : 

Most of the work is best done by pairs of students. The culminating 
projects in functions and in graphics should be assigned as individual 
work. 

Materials: 



Demonstration microcomputer and large-screen monitor: 
Handouts. 

Time for Activities : 

Approximately three to fou juld be allowed, depending on the 

overall capability and int. ,e«s of the stucsnts. 

ieacHr Preparation and Procedures : 

Prepare the necessary handouts. Fxperiment with sc/ne graphics problems 
to know which Would be most appropriate for the students. All sample 
materials for these activities are located in the Sample Assignments 
and Materials for Activity Cluster #4. 

1. Present a lecture on BASIC functions, using a demo microcomputer to 
show examples of intrinsic string functions. 

2. Distribute Handout #1 - String Functions Worksheet for pairs of 
students to practice string function? Intermingle with students 
in the lab to answer any questions. 

3. Assign a string function problem to zh of six groups of students 
from Handout #2 - String Functic Group Problems. Have them 
prepare a flowchart first and discuss the most efficient means for 
solving the problem. After programs have been coded and tested, 
each group should share its results with the whole class, using a 
demo microcomputer and distributing listings of the program. Then 
from the same handout, have each student do one of the three short 
programs involving string functions. Emphasize the need for a 
flowchart and good documentation. 



89 



89 



4. Cc;hpUU : v .ec'-.ur.e h?i BASIC _ functions* discussing and 
demonst '?> ' Mg ..hlvririsic . *i.tical fu.-ietiohs and user-defined 
functions Handout £3 . : Intrinsic .Math Functions Worksheet 
and Handed >H - User-Do fjhed Functions Worksheet, provide 
assignments fir both mathematical and user-defined functions. 
Discuss re :in u^, 

5. Have each student do t>:o of five short programs involving 
user-defined functions from Handout #5 - User-Defined Functions 
Individual Problems. Require flowcharts and documentation. 

6. Present a lecture on high-resolution graphics, demonstrating a few 
simple programs and distributing Handout #6 - High-Resolution 
Graphics Summary Sheet and Design Grid, Handout 17 - Sample Demo 
Hi-Res Graphics Problems provides three simple problems for 
demonstrating high-resolution graphics and on? more complex. problem 
that uses high-resolution graphics to graph polynomials of degree 
less than six. A sample listing is included as a possible solution 
to this latter problem. Point out the use of the IF-THEN and 

FOR-NEXT control structures, single-dimension arrays and 

subscripted variables, and subroutines. 

7. Have pairs of students dp the required graphics problems, while 
.individuals may do the .optional problems. Discuss and compare 
results, allowing students _t_o run their programs for the whole 
class. Assign Individual one of several longer r. aphics 
programs, according to their level of skills. After tk due date 
has passed, have students share their results._ The e vi\.ig 
handouts may be helpful: Handout #8 - Hi -Res Graphics Prob> , and 
Handout #9 - Hi-Res Graphics Individual Programs. 

Sample Assignments and M a t er4aTs_f or- Activity Cluste r ^4 : 

The following pages in this activity cluster provide handouts that 
could be used in this course. 
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NAME 

DAT E 
PERIO D 

STRING FUNCTIONS WORKSHEET* 

Run the following program to see how RIGHTS, LEFT$ and MID$ functions 
work: 



5 HOME 

10 B$ ■ "SPACESARENOTINCLUDEDHERE" 
20 PRINI RIGHTS (B$,4J 
30 PRINT MID$ (B$,7,3) 
^0 PRINT LEFTS (B$,6) 
50 END 

Include the following lines in the above program. Predict the output 
before running the program. 

15 FOR U = 1 TO LEN (B$) 

20 PRINI LEFTS (B$,N) 

30 PRINT RIGHTS (B$,N) 

40 PRINT MID$ (BS,1,25-N):PRINT 

45 NEXT N 

Before . uiving t .:• following program, predict the output. 



5 HOME 

10 :'$ - "SUPERCALIPRMGILISnCEXPIALlBeeiGUS" 

20 PRINT ""X.^i " HAS" PR: NT 

25 PRINT N; " Li. Q'ERS OR CHARACTERS." : PRINT 

30 PRINT "TYPE A NUMBER ERQM 1 TO "; N: PRINT 

35 PRINT "AND I WILL ?<AME THE CHARACTER" : PRINT 

40 PRINT "THAT IS IN THAT POSITION. " : PRINT 

45 PRINT "AN INVALID NUMBER STOPS THE RUN." : PRINT 

50 INPUT "WHAT IS YOUR NUMBER ";A: PRINT 

c5 IF A<1 OR A-^N J,OTD " 

60 IF INT(A)o-A GC"0 75 

65 HOME: PRINT MIDSCXS.A.l);" IS IN POSITIPN ";A:PRINT 

70 GOTO 50 

7? PRINT "INVALID NUMBER! "•. END 



Handout H 
Page 2 of 2 
Functions and Gra-ohi. 

4- tbe_ ..foil owing program uses the Mis . . o LEN functions to decode a 
string. Predict the output before it. 

10 Home 

20 X$ = "EAVLELk YC 0GW0S0 DE ABTO YG PDAOSESS OFRI NHEA'Y * " 

30 N = LR'.'vi) ■ ' 

40 FOR TO 2 

50 - S TO N STEP 2 

60 ; ,46$ (X$,A>i); 

70 

100 PRINT: f'ki NT 
110 NEXT S 
120 END 



5. Run the following program: • 

10 FOR J = 1 TO 7 

15 READ X$(J) 

20 NEXT J 

25 DATA "MONDAY" ."TUESDAY" ."WEDNESDAY" 

3D DATA "THURSDAY", "FRIDAY", "SATURDAY", "SUNDAY" 

35 PRINI "TYPE THE FIRST LETTER OF ANY" : PRINT 

40 PRINI "DAY AND THE COMPUTER WILL": PRINT 

45 PRINT "NAME THAT DAY." : PR INT 

50 INPUT "WHAT LETTER DO YOU CHOOSE ? 11 :D$: PRINT 

60 FOR J = 1 TO 7 

70 IF MID$(X$(J),1,1,)<>MID$(D$,1,1)G0T0 90 

80 PRINT X$(J) : " BEGINS WITH A ";D$: PRINT 

90 NEXT J 

95 END 



Change the program to: 

a. Include a loop that gives the user a choice to continue selecting 
letters or to stop. When a eharaeter that does not represent a day 
of the week 1s picked, display an appropriate error message and 
stop the run. 

b. Print the day which contains the seeond letter that the user picks 
(I.e. i R=FRIDAY) . 

c. Print the name Of the days that contain the mos\ letters. 



*From Experiencing BASIC -- Taslc Cards by Michaei Mulcahy; copyright 
(c) 1984 by Media Materials, Inc, Baltimore, Maryland. Reproduced with 
permission. 
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■'. 'ME 

DAT E ~ 
PERIUF" " 



STpaNti FUNCTIONS GROUP PROBLEMS 

1. Enter a string AS and use a loop co print the ASCII number of each 
of its characters,* 

2. Using the properly selected ASCII numbers in a DATA statement, 
print name of nur high school. 

3. Enter the string THREE!@#$%STRlNG!(a#$%FUNCTIONS. Use LEFT$ , MID$ 
and RIGHT$ to print the phrase THREE STRING FUNCTIONS.* 

4. Enter a string of any length and print the length and the ASCII 
number of its first and last characters.* 

5. Enter a string A$ and have the computer print the word with all the 
letter E's removed. Or input a string and output it without any 
vowels. Replace the vowels with a dash. 

6. Write a program to accept a character string as input, and output 
the string with each character printed twice. Fur example DOUBLE 
would appear as DD0OUUBBLLEE.** 



STRING FUNCTIONS INDIVIDUAL PROBLEMS 

Do U..c of the Following Programs 

A. Write a program to accept a message as a character string and en- 
code the message. Construct the code as follows: Convert each 
character in the message to ASCII code, add 3, and convert the new 
ASCII code to its associated character. T; )en modify the program so 
that the user will have the option of encoding or acodinq a 
message.** 



* From A Guide -o Programming in Applesoft by Bruce Presley, page 8.9; 
copyright (cj 1984 by Lawrencevi I le Press, Lawrencevi 11 e, New Jersey. 
Reproduced with perniiss ,on. 



, u -From Programming in Apple BASIG bv John H. Dielsi, Elaine S. Grossman, 
John P Tucciarone, pages 277-278; copyright (c) 1984 by CBS College 
Publishing, New York, New York. Reproduced with permission. 
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B. Enter a positive integer N$ as it would be_ expressed in binary 
form. Have the computer pHr* the equivalent in the decimal 
system.* 

C. Write a program to accept an extend. d message in sentence form and 
have the computer count the number oi words in the sentence. 



*Frbm A Guide to Programming in Applesoft by Bruce Presley, page 8.9; 
copyright Jc) 1984 by L^wrenceville Press, Lawrenceville, New Jersey. 
Reproduced with permission. 
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NAME 

DATE" " " 
PERIOD 

INTRINSIC MATH FUNCTIONS WORKSHEET* 



Determine the output: 



i. 



10 a * iz.r. 

20 PRINT mst A) , 

3c »int »g:-(a) 

4L D 



10 A = 68.7 

20 B = 4.7 

30 PRINT SQR(A - B), 

40 PRINT INT(A) 

50 END 



id PRINT INT(RND(1)) 
20 END 



9. 



10 READ N 

20 IF N/2 = INT(N/2) GOTO 40 

30 GCTO 10 

40 PRINT N 

50 DATA 13,20,2,85,99,0 

60 END 



10 READ X 

2C IF X = 0 GOTO 60 

30 PRINT INT(X + 0.50), 

tO GOTO 10 

50 DATA 6.31, 84.71, 1C2.4, 0 

60 END 



4. 10 PRINT SQR(INT((10+ 
RND(l) + 40)/10)) 
20 END 



10. 



5. 10 PRINT INT(SQR(40)) 
20 END 



6. 10 R = iN T (9*RND(i j j + 
20 PRINT INTfR/9) 
30 END 



11. 



10 FOR N -- 1 TO 5 

26 READ X,Y 

3C IF X/r< ^INT(X/Y) GOTO 50 

40 PRINT "OK" 

50 NEXT N 

60 DATA 7,3,30,4,33,11,3,6,8,1 

70 END 



12. 



10 A = 3.3125 

20 xi A => 50 GOTO 60 

30 A - 2*A 

40 :nni int(a + 0.5) , 

50 GOTO 20 

60 END 



id 
m 

30 
40 
50 
60 



FOR X = 1 TO 3 
R = INT(17*RND(1)) + 55 
IF R/9^ =»INT(R/9) GOTO 20 
PRINT R, 

NEXT X 
END 



10 N = TNT(45*RND(1)) + 4 

20 PRINT -«n((2*N +1)/N*2 +1) 

30 END 



*From Duplicating Masters [ — Experiencing BASIC by fcichael Mulcahy, 
page 11; copyright (cfiW by Media Materials, Inc.,' Baltimore, Maryland. 
Reproduced with permission. 
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NAME 
DATE 
PERIOD" 



USER-CLi- T NED FUNCTIONS WORKSHEET* 

Determine the output for th i ^ program 

i. 10 DEF FNA(X) = X + 8 

20 DEF FNB(Y) = 2 + Y 

30 W = 5 

40 C = FNA(W) + FNB(W) 

50 PRINT C 

60 END 



Determine the output after making the following change to tine 40 in the 
above program: 

2. 40 C = FMA(3) * FNB(2*W) 8. 40 C - FNA(FNB(FNA(FNB( W - 3}j)j 



3. 40 C = FN8(7*W) - FNA(W r) 9. 40 C = FNB(FNA(FNB(FNA(W + 3)))} 



4. 40 6 * 15 + FNA(Y) - FNB(X) 10. 40 C = INT(FNA(20)/FNB( W - 2)) 



5. 40 C * FNAa.5) + FNB(W/2) li. 40 C = FHA( INT( INT(7*RND(i ) + 17)/8)) 



ai. 40 C * FNB (7.25) + FNA(8.25 - W) 12. 40 C = iNT(SQR(FwA(4*Wj + FNB(20))) 



7. 40 e * 3*FNB(12 - W) - 2*FNA(W + 8) 



*From Defeating Masters --^ -Experiencing BASIC by Michael Mu1cahy 5 
page 12; copyright lc] 1984 by Medi a Mate rials, I nc . s Baltimore, Maryland. 
Reproduced with permission. 
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NAME 

da*; 

PERIOD 



USER-DEFINED FUNCTIONS 
INDIVIDUAL PROBLEMS 

You are not limited to the functions provided by BASIC. You may create your 
own. These programmer-defined functions are restricted to a length of brie 
line each and should be declared at the beginning of the program. The name 
of the function must start with the letters FN followed by any letter. The 
argument must be a single numeric data name and the formula should contain 
that data name: 

EX 100 DEF FNA(X) = X + 3 
208 LET X - 20 
306 C = FNA(X) 
400 PRINT 6 



Do Two of the Following Programs Using USER-DEFINED Functions. 

IA. Write a program to convert Fahrenheit to Celsius and Celsius to 
Fahrenheit. 

OR (for students with background in trigonometry) 

IB. Write a program to convert an angle from degree measurement to radian 
measurement. 

2. Write a program to find the radius of a circle, given the area. Modify 
the problem with a user-defined function to round the radius off to 
hundredths. 

3A. The Ajax Discount Center offers a 20 percent discount for a purchase of 
$100 or more arid a 15 percent discount for a purchase of less than 
$100. Write a program that uses two one-line functions to determine 
the final selling price given the original price.* 

OR (tor students with background in trigonometry) 



3B. Write a program to produce two columns of the sines and cosines of 
complementary angles from 1 to 90. Be sure to employ a user-defined 
function. 



*Frdm Programming in Apple BASIC by John d. Dielsi , Elaine S. Grossman, 
John P. Tucciarone, page 312; copyright (c) 1984 by CBS College Publishing. 
New York, New York. Reproduced with permission. 

97 

97 

ERIC 



Hantiout #6 
Page. 1 of 2 

Functions arid Graphics 



HIGH-RESOLUTION GRAPHICS SUMMARY SHEET ' 1 

HCGLORs 



Mote: The HCOLORs can vary greatly, depending on the tuning of your color 
monitor or color television set. 

Graphics Screen 
COLUMN 



HPLOT 0,0" 



HPLOT 0,159 



i j how 

\ 



HPLOT COL, ROW 



Tex 



HPLOT 279,159 



Home position on text screen obtained by this command sequence: 

HOME 
VTAB 21 
HTAB 1 



Command 
10 HGR 



Sample Program to illustrate Use of Each Graphics Command 

Comment 



20 HC0L0R- 1 
30 HPLOT 15: 22 



40 HOME 

50 TEXT 
60 END 



Clears screen (except for bottom four text lines) 
and enters high-resolution graphics mode. 

Establishes green as the high-resolution plot color. 

Plots a green point at the intersection of the \ 5th 
column and the 22nd row. 

Clears text screen and moves the cursor to the upper 
left corner of the full screen (not the text window). 

Resets the full screen to the text mode. 



Reference 
Number 


HCOLOR 


Rsstric'ions 


0 


black 




1 


green 


, Plotted only if column location is an odd number 


2 


purple 


Plnttfld only if column location is an even number. 


3 


white 


Density and color will differ for odd arid even 
column locations, and will be influenced by 
adjacent colored points. 


4 


black 




5 


orange 


Plotted only if column location is an odd number. 


6 


blue 


Plotted only if column location is an even number. 


7 


white 


SamaasforHCOhOR = % 



*From Graphics Discoveries -- Book I I Jerry Johnson, page 17; copyright 
(c) 1984 by Creative Publications, Palo 7^1 to, California. Reproduced with 
permission. 
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HIGH-RESOLUTION GRAPHICS DESIGN GRID * 
Use copies of this grid to design high-resolution computer graphics. 



1 



ozi.- 

OOL 
OSL 

on- 
oei' 

02L- 
Oil- 

bbi- 

06- 
08- 

bz- 

09- 
09- 
Ofr- 



OE- 
OZ- 




■osz 



-d»z 



-OEZ 



•OZl 



•OS I 



•on 



•OZl 



•ou 

■001 

•06 



-08 
•OZ 



-09 
-OS 
-0* 

-oz 

-01 



*From Graphics Discoveries — Book II by Jerry Johnson s page 32; 
copyright (c) 1984 By Creative Pub! ications , Palo Alto, California. 
Reproduced with permission. 
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NAME 
DATE 



PERIOD — 

SAMPLE DEMO HI-RES GRAPHICS PROBLEMS* 

Read this program and predict the computer's output. Then check your 
prediction by running the program. 

010 HOME Predicted Output: 

020 HGR 

D30 HCOLOR = 1 

040 FOR ROW = 0 TO 159 

050 HPLOI 0, ROW 

050 HPLOT TO 279, ROW 

070 NEXT ROW 

080 HCOLOR = 2 

090 FOR N = 0 TO 100 

100 hPLOT N,N 

110 NEXT N 

120 END 

Do you like surprises? If so, you'll enjoy running this program. But 
before you do run it, predict what you think will happen. 

010 HOME Predicted Output: 

020 HGR 

030 HCOLOR = 1 

040 FOR ROW = 0 TO 159 

050 HPLOT 0, ROW 

060 HPLOT TO 279, ROW 

070 NEXT ROW 

080 HCOLOR = 4 

090 FOR COL = 0 TO 279 STEP 2 

100 FOR ROW = 0 TO 159 

110 HPLOT COL, ROW 

120 NEXT ROW 

- j NEXT COL 

140 END 

What does occur? 

Can you explain why the results are so weird? 
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Try making these changes: 

90 FOR COL = 0 TO 279 STEP 1 

or 

90 FOR COL - 0 TO 279 STEP 3 

or 

90 FOR COL = 0 TO 279 STEP 10 

Now do some exploring on your own. See what other visual effects you 
can create by making changes in the original program. Try new color 
combinations and different STEP values in line 90. 

Read this program and predict the computer's output. Then check your 
prediction by running the program. Explore the effect", of changing the 
program si ightly. 



10 HOME Predicted Output 

20 HGR 

30 FOR ROW = 0 TO 159 

40 HCDLQP.= 5 

50 HPLOT 0, ROW TO ROW, 0 

60 HC0LQR_= 2 

70 HPLOT ROW, 159 TO 159, ROW 

80 NEXT ROW 

90 END 

What wi 1 1 happen if you add these four 1 ines? 



54 IF ROW + 160 s 279 THEN 60 Predicted Output: 

55 HPLOT 16C, ROW TO ROW + 160, 0 

74 IF RCW + 160 ^ 279 THEN 80 

75 HPLOT ROW + 160, 120 TO 279, ROW 

What will happen if you change lines 50 and 55 to: 



50 HPLOT 0, 159 - ROW TO 159 - ROW, 0 Predicted Outcut: 
55 HPLOT 160, 120 - ROW TO 279 - ROW, 0 



*From Graphics Discoveries -- Book II by Jerry Johnson, pages 23-24, 
29; copyright (c) 1984 by Creative Publications, Palo Alto, California. 
Reproduced wit; - : permission. 
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NAM E 

DAT E 
PERIOTT - 



sample demo hi-res graphics 
Problem to graph polynomials 

010 ROME 

020 REM HI-RES GRAPHICS DEMO 
030 REM 

040 REM VARIABLE ASSIGNMENTS 

050 REM W$ = CHARACTER STRING 

060 REM G$ = KEYBOARD RESPONSE 

070 . REM A = LOOP VARIABLE 

080 REM SC = SCREEN ^-COORDINATE (COLUMN) 

090 REM SR = SCREEN Y-COORDINATE (ROW) 

100 REM OX = SCREEN X -COORD (COLUMN) FOR JRIGI' 

IlO REM 0Y = SCREEN Y- COORD _ (ROW) FOR ORIGIN 

120 REM SX = SCALAR EOR X-COORD 

130 REM SY = SCALAR FOR Y- COORD 

140 REM _ N = DEGREE OF THE POLYNOMIAL 

150 REM FN C = POLYNOMIAL DE Nth DEGREE 

160 REM X = X- ;OORD FOR EQUAIION 

170 REM Y = Y-COORD FOR EQUATION 

180 REM P = DIMENSION VARIABLE FOR COEFFICIENT OF POLYNOMIAL 
190 REM R$ = RESPONSE FOR OPTION TO CONTINUE 
200 REM 

210 REM TITLE SCREEN 
220 INVERSE 

230 LET WS = "RESOLUTION" 

240 HTAB (17): VTAB (2): PRINT "H I G H" 

250 FOR a = 1 TO 10 

260 FLASH 

270 HTAB (A + 15): VTAB (A + 3): PRINT MID$ (WS.A.l) 
280 NEXT A 
290 INVERSE 

300 HTAB (13): VTAB (16): PRINT "G R A P H I C S" 
310 VTAB (22) 
3?0 NORMAL 

330 PRINT "PRESS ANY KEY TO CONTINUE.": GET G$ 
340 REM 

350 REM DIMENSION VARIABLE FOR POLYNOMIAL 
360 DIM P(50) 
370 REM 

380 REM INITIALIZATION OF VARIABLES 
390 LET SC = C 
400 LET SR = 0 
410 REM 

420 rem input Module for origin and scalar 
430 text : home 

440 print "what point on the screen would you like the origin?" 
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450 PRINT 

460 PR J, NT "ENTER THE COLUMN:";: INPUT OX 

47.0 PRINT " THE ROW:":: INPUT Ov 

480 PRINT : PRINT :_PRINT 

490 PRINT "WHAT IS THE SCALAR VALUE FOR THE COORDINATES 9 " 
SOU PRINT " ilXM "^- 

510 PRINT "ENTER THE SCALAR FOR" 

520 PRINT 

530 PRINT " THE X-COORDINATE: " ; : INPUT <X 

540 PRINT " THE Y-CCORDINATE : " ; : INPUT SY 

550 REM 

550 HOME 

570 REM INPUT MODULE FOR EQJATION YOU WANT GRAPHED 

580 PRINT : PRINT 

550 JPjJ*"AT DEGREE POLYNOMIAL WOULD YOU LIKE GRAPHED? (BETWEEN 6 

500 INPUT N 

610 REM 

620 REM LOOP TO INPUT COEFFICIENTS OF POLYNOMIALS 

630 REM 

640 REM STATEMENT TO INPUT CONSTANT TERM OF POLYNOMIAL 

650 IF N = 0 THEN GOTO 720_ 

660 PRINT "WHAT IS THE COEFFICIENT OF - 11 

670 FOR A = N TO 1 STEP - 1 

580 PRINT 

690 PRINT "X TO THE ";A;"th POWER" ;: INPUT P(A) 

700 NEXT A > v ; 

710 PRINT 

720 PRINT "WHAT IS THE CONSTANT TERM" ; : INPUT P(0) 

730 ON N + 1 GOSUB 1220,1260,1300,1340,1380,1420 

740 REM 

750 REM DRAWING AXES 

760 HGR 

770 HCOL0R= 3 

780 HPLOT O.OY TO 279, OY 

790 HPLOT 0X,0 TO OX „ 159 

800 OEM 

810 REM LOOP TO PRINT POLYNOMIAL IN TEXT WINDOW 

820 HOME 

830 VTAB (21) 

840 PRINT "y = »; 

850 REM CHECK FOR CONSTANT POLYNOMIAL 

860 if n =_o Then goto 940 

870 FOR A = N TO 1 STEP - 1 

880 REM CHECK FOR COEFFICIENTS OF 0 AND 1 

890 IF P(A) = 0 THEN GOTO 930 

SOD IF P(A) = 1 THEN GOTO 920 

910 PRINT P(A); 

920 PRIST "x^";A;" + H : 

930 NEXT A 

940 PRINT P(0) 

950 REM 103 
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0960 REM PLOTTING POINTS.DF POLYNOMIAL 

0970 FOR SC = 0 TO 279 STEP 2 

0980 LET X = (SC - OX) / SX 

C990 LET Y = FN C(, ) 

1000 LET SR = OY - SV * Y 

1010 IF SR^O OR Sr. > 159 THE.*; 1030 

1020 HPLOT SC.SR 

1030 NEXT SC 

1040 REM 

1050 REM OPTION TO CONTINUE 

1060 PRINT : PRINT 

1070 PRINT "DO YOU WANT TO CONTINUE";: INPUT R$ 

1080 IF R$ = "YES" OR R$ = "Y" THEN GOTO 390 

1090 IF R$ = "NO" OR R$ = " N M THEN 1130 

1100 PRINT "INPUT DOES NOT REGISTER! . . .TRY AGAIN" 

iiio goto 1070 

1120 REM ENDING SCREEN 

1130 TEXT : HOME 

1140 VTAB (15) : HTAB (18) 

1150 FLASH 

1160 PRINT "ALOHA" 

1170 NORMAL 

1180 REM 

1190 END 

1200 REM 

1210 REM SUBROUTINES FOR POLYNOMIALS 

1220 REM POLYNOMIAL OF ZERO DEGREE 

1230 DEF FN C(X) = P(0) 

1240 RETURN 

1250 REM 

1260 REM POLYNOMIAL OF FIRST DEGREE 

1270 DEF FN C(X) = P(l) * X + P(0) 

1280 RETURN 

1290 REM 

1300 REM POLYNOMIAL OF SECOND DEGREE 

1310 DEF FN C(X) = P(2) * X A 2 + P(l) * X + P(0) 

1320 RETURN 

1330 REM 

1340 REM POLYNOMIAL OF THIRD DEGREE 

1350 DEF FN C(X) = P(3) * X' 3 + P(2) * X A 2 + P(l) * X + P(0) 

1360 RETURN v ; 

1370 REM 

1380 REM POLYNOMIAL OF FOURTH DEGREE 

1390 DEF FN C(X) = P(4) * X A 4 + P{3) * V." 3 + P(2) + P(l) * X + 



1400 RETURN 
1410 REM 

1420 REM POLYNOMIAL OF FIFTH DEGREE 

1430 DEF FN C(X) - P(5) * X" 5 + P(4) MM + P(3) * X A 3 + P(2) * T2 + 

P(l) * X + P(0) 
1440 RETURN 
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NAME 

DATE"" 

PERITH ) 

HI-RES GRAPHICS PROBLEMS* 

Required Problem. 

i. Write a program that will: 

(A) start at an anchor point located at column 5, row 155. 

(B) draw a progression of nested square frames in white (HCOLOR = 3). 
The sides of each new square frame are 5 "points" longer than the 
sides of the previous square frame. 

(C) have the anchor point serve as the lower-left corner of each 
square. 

(Dj stop when the top of the graphics screen is reached. 

Hint: Figure out how the locations of the four vertices of the square 
frame are related to each other. 




Optional Problem. 

2. Ghange the program in problem 1 so that it repeats itself continuously 
and incorporates these changes: 

(A) the square frames are orange. 

(B) a new anchor point is selected at random for each new progression 
of nested squares. 

Note; It is best to limit the row and column values of the anchor 
points to multiples of 5. 
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Required Problem. 

3. A rectangular parallelepiped is a solid figure with six rectangular 
faces. Write a program that. will draw the'outline of a rectangular 
parallelepiped in white (HCOLOR =_3}.. The program should allow you to 
input the row arid column values of three key vertices A, B, and C. 

Hint: Analyze the drawing, below and figure out the locations of the 
remaining five vertices. . Remember that once the location of vertex A 
is chosen, the available locations of vertices B and C will be 
restricted somewhat. 




Optional Problem. 

4, Change the program in problem 3 so that the locations of vertices A, B, 
and C are chosen randomly. After one rectangular parallelepiped is 
drawn, you should be able to press the RETURN key in order to clear the 
screen and draw a new parallelepiped. 



*Frbm Graphics Discoveries Book II by Jerry Johnson, pages 35, 37; 
copyright (c) 1984 by Creative Publications, Palo Alto, California. 
Reproduced with permission. 
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NAME 

DATE 

PERIOD 



HI-RES GRAPHICS INDIVIDUAL PROGRAMS 



Complete the drawing of a chessboard by shading in every other square 
in white using high-resolution graphics. 



For extra credit you might draw a few of the chess pieces under your 
picture of the board! 



2. This shape may be drawn without lifting your pencil from the paper or 
retracing any lines. Simulate^the solution to this exercise using high 
resolution graphics. ^ 




Write a program chat produces a slide show of optical illusions. Some 
good illusions to include are: 

a. the Zollner illusion 

b. the Necker Cube illusion 
e. the Poggendorf illusion 

d. the Ponzo or railway lines illusion 

e. the Hering illusion and its converse 

f . Penrose's Impossible Triangle 

These and other puzzling illusions can be found in the following 
references : 



Gilliam, B. "Geometrical Illusions." Scienti f J c American , 

(January, 1980), pp. 102-111. 
Gregory, R. "Visual Illusion." Scientific American, (November, 

1968), pp. 66-76. 
Gregory, R. The I ntelligent Eye ■ New York: McGraw-Hill , 1970: 
Lanners, E. , ed. Illusions ! New York: Hoi t, Rinehart, and 

Winston, 19771 

Levine, S. "Optical Illusions." Grade Teacher, (October, 1970), 
pp. 74-77.* 



*From Graphics Discoveries — Book II by Jerry Johnson, page 56; 
copyright (c) 1984 By Creative Publ ications, Palo Alto, Ca 1 ifornia. 
Reproduced with permission. 
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4; Write a prograin to produce a design similar to this. Have L.ho program 
draw the design several times using different colors each time. You 
are to use high-resolution graphics 




5, A seven segment display is used to represent a number jh e digital 
clock. The seven segments are arranged as shown below: 

2 4 




5 32 



When certain segments are lit, they form a numeral. For example, if a 
figure five is to be represented, then segments 0, ?, 3, 5, and 6 would 
be lit. If each segment is assigned a value of a power of two as 
shown above, it is possible to encode the form of a numeral as the sum 
of the values of the segments that must be lit to represent that 
numeral. For example, the .encoded information of a figure five would 
be the sum of the segments 0, 2, 3, 5 and 6 or 1 +4+8+32+64 = 109. 

To decode a number like 109, successively divide it by two. If the 
result of the first division is not an integer, then, the segment 
numbered 0 should be lit. Again take the INT of the result. Continue 
this process of dividing by two and cheeking the result seven times 
(once for each segment). 

Write a program to have the computer count. slowly from 0 to 9 using the 
seven segment display described above. Fo^ extra e.cciit, modify the 
program to make it count to 99.* 



*From A Guide to Programming in Applesoft EA 3IC by Bruce Presley, page 
6.21; copyright (c) 1984 by Lawrencevil la Press , Lawrenceville, New Jersey. 
Reproduced with permission. 
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SAMPLE_ ACTIVITY CLUSTER #5 
FILE HANDLING ANB TERM PROJECT 



Topics : 

1. Sequential Files 

2. Random or Direct Files 

3. Term Project 



Classroom Management : 

The work on files can be done by pairs and teams of students, but 
the term project should be done individually. 

Material s : 

Demonstration microcomputer and large-screen monitor; 
Videotape player and the videotape, "File Structures"; 
Reading material on Text Files, such as: 

Apple Text Files by David Miller chapters 1-3; 

Lteta File Programming in BASIC — A Self-Teaching Guide by 

LeRoy Finke! and Jerald R. Brown, chapters 4, 7-8; 

Handouts. 

Time for Activit ies : 

Approximately one to four weeks for file handling could be 
provided, depending on the depth to which the teacher plans taking 
his or her students. Four to six weeks could be allowed for the 
term project; specific days should be set for work on the projects. 

Teacher Preparatio n and Procedures: 

Preview the videotape and prepare the needed handouts. Gather an 
assortment of topic ideas for the term projects. All sample 
materials for these activities are located in the Sample Assignments 
and Materials for Activity Cluster #5. 

1. Introduce text files and file handling via a lecture and reading 
assignment. Discuss related questions. 

2. To familiarize students with the actual process of creating and 
us|ng data files, have pairs of students type in a couple, 
simple, sample programs, using a sequential file. Distribute 
Handout #1 - Sample Programs Using Sequential Files. Remind 
students of the purpose of the CHR$ (4) string function when 
handling files in Applesoft BASIC. 

3. Show the videotape, "File Structures," _ and have students answer 
questions from Handout #2 - Questions from the Videotape, "File 
Structures." Take time to discuss the answers. 




4. Assign pairs of students one of two programs that create and 
read back sequential data files, found in Handout #3 - Creating 
and Reading Back Sequential Data Files, Requi re a flowchart and 
good documentation. The solutions, adjusted to Applesoft BASIC ; 
may be removed from the handout or given to students after they 
have written their own program; As various versions of BASIC open, 
write and close files differently, appropriate adjustments must be 
made for your particular system. For students that may want to 
include a menu in their program, a sample program and hierarchy 
chart are provided as a arrangement in Handout #4 - 
Creating and Maintaining Sequential Files Using Menus. The program 
is written for TRS-80, Model 4 and would need some adjustments for 
other systems. 

5. After exposing stuoents to the differences between random access 
files and sequential files, provide a series of three interrelated 
programming problems that create and read random access data files. 
Refer to Handout #5 -Random Access Data Files. The sample 
listings may be removed from the handout or given to students after 
they have written their own program. Assign al| pairs of students 
to one of the three problems according to their level of skills. 
For the class to gain experience in a real programming environment, 
organize teams with tiree pairs of students — each pair responsible 
for one of the three programs but the entire team responsible for 
the overall system. Emphasize the heed for cooperation within 
pairs and among team members in planning, designing, coding and 
testing their programs. Have teams appoint one member as their 
lead prograr^mer — hot to do all the work but to coordinate the 
three pairs of members within the team and assist where needed. 

6. As an option, discuss the advantages of an indexed -sequential _ file 
over a regular sequential file or random access file. Assign 
Handout #6 - Creating an Indexed-Sequential File. _ A listing of a 
possible solution to the problem for TRS-80, Model 4 is included. 

7. A term project could be assigned any time during the second 
semester, after students have become more adept at BASIC 
programming skills. Handout #7 - Term Project could be distribu- 
ted when appropriate. 



Sample Assignments and Materials for Activity Cluster #5 : 

The. following pages in this activity cluster provide hai.douts that 
could be used in this course. 
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NAME 

BAT l _ - 

pERra p~~ 

SAMPLE PROGRAMS USING SEQUENTIAL FILES 

Example 1 

The program below is divided into three sections. The first section allows 
the user to input the name of the file to be created. This name is storeu 
l'n F$. Thereafter, rather than typing this name with each file command, F$ 
is used. See lines 2060, 2070, 2080, 2090, and 2148. 



0080 DIM A$(100) 

0090 D$ = CHR$(4) 

0100 REM ENTER FILE NAME 

0110 REM 

0120 HOME 

0130 PRINT "ENTER NAME OF FILE TO BE CREATED: " 
0140 VTAB 4: HTAB 15: INPUT F$ 

0150 PRINT **************************************************** 

1000 REM INPUT DATA INTO AN ARRAY TO BE RECORDED ON FILE 
1010 REM 
1020 C = 0 
1025 VTAB 6 

1030 PRINT "RECORD ";C + 1; 
1040 INPUT " ";A$(C + 1) 
1050 IF A$(C + 1) = " " THEN 2020 
1060 C = C + 1 

1070 GOTO 1030 

1080 Rem ***************************************************** 

2Q0Q REM TRANSFER ARRAY DATA TO F T LE 
2810 REM 
2020 HOME 
2030 VTAB 13 

2040 PRINT C;" RECORDS HAVE BEEN CREATED" 

2050 VTAB 15: PRINT "FOR FILE ";F$ 

2060 PRINT D$;"0PEN ";F$ 

2070 PRINT D$; "DELETE ";F$ 

2080 PRINT D$;"0PEN ";F$ 

2090 PRINT D$;"WRITE ";F$ 

2100 PRINT C 

2110 FOR N = 1 TO C 

2120 PRINT A$(N) 

2130 NEXT N 

2140 PRINT D$; "CLOSE ";F$ 

The second section of the program stores the information for the file and 
AS. Line 80 allows for a maximum of 100 such records. If a larger array 
size were required, only line 80 would have to be modified. The end of a 
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record is indicated 5^ thsr^tjrnkc^ following each INPUT, The counter. C 
in line 1060 keeps track of 'v.e number of records to be written to the file, 
and line 1650 terminates this section. When all the data have been entered, 
the user will just hit the RETURN key and, as a result, the hull string 
stored in the last A$(C+l) wi 11 indicate that no more data are to be 
entered. Note that since the counter in line 1060 is not incremented in 
this case, the null string sin not be included as part of the text file. 

The third section of the program takes the data accumulated in the second 
section and stores it m the diskette. The first data item recorded on the 
diskette is C, the number of records in the file. Remember, this data item 
is stored as record P in this sequential file. The remaining data items are 
stored by using the )oop in lines 2110 to 2130. Since the PRINT statement 
in this loop follows a WRITE file command, it outputs data to the file 
designated F$. 

This example illustrates one method of creating a sequential data file. In 
order to access the information stored on the file, the programmer must know 
how the file was created. 

The example below indicates how one can access a file created in manner 
similar to the method used in Example 1. Note that the first record read is 
Aj the variable representing the total number of records in the file. 

Example 2 



0080 DIM B$(100} 

0090 D$ = CHR$(4) 

CiOO REM ENTER FILE NAME 

0110 REM 

0120 HOME 

0130 PRINT "ENTER NAME OF FILE TO BE READ:" 
0140 VTAB 4: HTAB 15: INPUT F$ 
0150 PRINT 

0160 REM **************************************************** 
1000 REM READ DATA FROM FILE 
1010 REM 

1020 PRINT D$;"0PEN ";F$ 
1030 PRINT D$;"READ ";F$ 
1040 INPUT A 

1050 PRINT "THERE ARE ";A;" RECOPDS IN FILE " ; 

1060 INVERSE 

1070 PRINT F$ 

1030 NORMAL 

1090 PRINT 

1100 FOR C = 1 TO A 

1110 INPUT B$(C) 

112C PRINT "RECORD ";C;": ";B$(C) 
1130 NEXT C 

1140 PRINT D$;"CL0SE ";F$ 
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PERIOD" 



QUESTIONS FOR THE VIDEOTAPE , 
"File Structures" 

How does data storage on disk differ from data storage on tape? 

How are sequential files different from random files? 

For what types of applications are sequential files best suited? 



In Applesoft BASIC, what purpose does the string function CHR$(4) 
serve? 

Explain the following file commands: 

OPEN REAP 
CLOSE WRITE 
DELETE FILE 

Besides the name of the files, what additional information must be 
provided for accessing random files? 

Of what value is the command MON? What subcommands can be entered 
under MON? 
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NAM E 
DATE 

PERIO D ' 

CREATING AND READING BACK 
SEQUENTIAL DATA FILES* 

Write a program co create a data file called GROCERY that stores your 
grocery shopping list. Include the description or n,.me of each grocery 
item (maximum of twenty characters) and a numeric value telling the 
quantity of that item to buy. Store at least six datasets or entries 
in the file. Remark statements should identify the program and 
variables, such as: 



100 REM GROCERIES 
110 REM 
120 REM 

130 REM VARIABLES USED 

140 REM 1$ = ITEM DESCRIPTION 

150 REM Q = QUANTITY TO ORDER 
160 REM 

180 REM FILES USED 

200 REM F$ = USER ENTERED INPUT FILE 



Write a companion program to display the contents of GROCERY. 
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Possible Solutions to 1A arid IB 
Using Applesoft BASIC 

1A GROCERY SHOPPING LIST 

110 REM PROB 1A SOLUTION (GROCERY LIST) 
120 REM 

130 REM INTRODUCTORY MODULE 

140 REM VARIABLES USED 

150 REM 1$ = ITEM DESCRIPTION 

150 REM 0 = QUANTITY TO ORDER 

170 REM 

180 REM FILES USED 

190 REM F$ = USER ENTERED INPUT FILE 
200 REM 

220 D$ = CHR$(4) 

230 INPUT "ENTER NAME OF INPUT FILE"; F$ 
240 PRINT D$;"0PEN ";F$ 
250 REM 

280 REM DATA ENTRY ROUTINE 
290 REM 

300 PRINI "ENTER 'STOP' WHEN FINISHED" 
310 PRINI 

320 INPUT "ENTER ITEM DESCRIPTION:"; 1$ 
330 IF 1$ = "STOP" IHEN 480 

340 IF LEN(I$) = 0 THEN PRINT "PLEASE ENTER A DESCRIPTION OR 'STOP'"- GOTO 
320 

350 IF LEN(I$) > 20 THEN PRINT "PLEASE LIMIT DESCRIPTION TO 20 CHARS, AND 

REENTER": GOTO 320 
360 INPUT "ENTER QUANTITY:"; Q 
370 IF Q > = 1 AND Q 10 THEN 440 
380 PRINT "YOU ENTERED A QUANTITY OF "; Q 
390 INPUT "IS THAT WHAT YOU WANTED?" ; R$ 
400 IF LEFT$ (R$,l) = "N" THEN 360 
410 REM 

420 REM WRITE TO FILE ROUTINE 
430 REM 

440 PRINT D$;"WRIIE ";F$ 
445 PRINT 1$ 
450 PRINT Q 
455 GOTO 320 
460 REM 

470 REM CLOSE FILE ROUTINE 
480 PRINT D$;"CLOSE ";F$ 
485 REM 

490 PRINT "FILES CLOSED." 
500 END 
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IB GROCERY SHOPPING LIST DISPLAY 

100 REM PROB IB SOLUTION (GROCERY LIST FILE APPLICATION) 

110 REM 

120 REM VARIABLES USED 
130 REM 1$ = ITEM DESCRIPTION 
140 REM 0 = QUANTITY TO ORDER 
150 REM 

160 REM FILES USED 

170 REM F$ = USER ENTERED INPUT FILE 

180 REM 

190 REM FILES INITIAL I ZATIE ROUTINE 

195 D$ = CHR$(4) 

200 INPUT "ENTER NAME OF INPUT FILE:"; F$ 

210 PRINT D$;"0PEN ";F$ 

220 REM 

230 REM READ/PRINT FILE ROUTINE 

240 REM 

250 PRINT "ITEM", "QUANTITY": PRINT 

260 PRINT D$;"READ ";F$ 

265 INPUT IS 

270 INPUT Q 

275 IF 1$ = "STOP" THEN 320 

280 PRINT I$,Q 

290 GOTO 265 

300 REM 

310 REM CLOSE FILE ROUTINE 

320 PRINT D$;"CLOSE ";F$ 

330 END 
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2A Write one program and use it to create three different data files 
called LETTER1, LETTER2, and LETTER3. Each file should contain the 
text of a form letter with at least three lines of text per letter. 
Each line of text in the letters is to be entered and stored as one 
dataset or entry. 

100 REM LETTERS 

110 REM 

120 REM VARIABLES USED 

130 REM R$ = TEXT LINE 

140 REM F$ = FILE NAME VARIABLE 

150 REM 

160 REM FILES USED 

170 REM LETTER (PLUS F$ WHICH IS USER SELECTED) 

180 REM 



2B Write a companion program to display the data file above selected by 
the user. 
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Possible Solutions to 2A and 2B 
Using Applesoft BASIC 



2A LETTERS 

100 REM PR0B 2A SOLUTION (LETTERS) 

110 REM 

120 REM VARIABLES USED 

130 REM R$ = TEXT LiENE _ .. 

140 REM F$ = FILE NAME VARIABLE 

150 REM 

160 REM FILES USED ...... _ 

170 REM LETTER (PLUS F$ WHI6R IS USER SELECTED) 

180 REM 

190 REM INITIALIZE ROUTINE 

200 REM._ 

210 CLEAR 

215 D$ = CHR$(4) 

220 INPUT "ENTER FILE NUMBER:"; F$ 

230 LET F$ = "LETTER" + F$ 

240 PRINT D$;"0PEN ";F$ 

250 REM 

260 PRINT "ENTER TEXT LINE OR 'STOP'" 

270 INPUT R$ 

280 IF R$ = "STOP" THEN 330 

290 PRINT D$ , "WRITE ";F$ 

295 PRINT R$ 

300 GOTO 260 

310 REM 

320 REM CLOSE FILE ROUTINE 

330 PRINT D$;"CLOSE ";F$ 

340 PRINT "FILE ";F$;" CLOSED." 

350 END 
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2B LETTERS DISPLAY 



100 REM PROB 2B SOLUTION (LETTERS FILE APPLICATION) 

110 REM 

120 REM VARIABLES USED 

130 REM R$ = TEXT LINE 

140 REM F$ = FILE NAME VARIABLE 

150 REM 

160 REM FILES USED 

170 REM LETTER (PLUS F$ WHICH IS USER SELECTED) 

180 REM 

190 REM INITIALIZE ROUTINE 

195 REM 

200 CLEAR 

205 D$ = CHR$(4) 

210 INPUT "ENTER FILE NUMBER:"; F$ 

220 LET F$ = "LETTER" + F$ 

230 PRINT D$;"OPEN ";F$ 

240 REM 

250 REM READ/PRINT FILE CONTENTS ROUTINE 

255 REM 

260 PRINT D$;"READ ";F$ 

265 INPUT R$ 

270 IF R$ = "STOP" THEN 320 

280 PRINT R$ 

290 GOTO 265 

300 REM 

310 REM CLOSE FILE ROUTINE 

320 PRINT D$; "CLOSE ";F$ 

330 PRINT "FILE ";F$;" CLOSED." 

340 END 



♦Adapted from Data File Programming in BASIC by LeRoy Finkel and Jerald 
R. Brown, pages 113-114, 124, 126, 128-129 and 133-134; copyright (c) 3981 
by John Wiley and Sons, Inc., New York, New York. Reproduced with 
permission. 
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NAM E 

DAT E 
PERIOD 



CREATING AND MAINTAINING SEQUENTIAL FILES USING MENUS 

Hierarchy Chart 
Class Files 



Period 1 
Pile: "ONE' 



Period 
Selection 
MENU 



Period 2 
File: "TWO 1 



Period 3 
File: "THREE' 



Period 5 
File: "FDitf' 



Period 5 
File .'"FIVE' 



Period 6 
File:, "SIX 1 



Function 
MENU 



_ _ END 
Program. 



Create/Add 
Names to 
File 



Sort File 
by Names 







Correct 




f " V 

Delete 


Names on 




Names 


File 







Display/ 
Print List 



Return 

to _ 
PERIOD MENU 
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CLASS FILES PROGRAM 



0100 


REM 


0110 


REM 


0120 


REM 


0130 





0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
024C 
0250 
0260 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0600 
6610 
0620 
0630 
0640 
0650 
0660 



THIS PROGRAM CREATES AND MAINTAINS SEQUENTIAL CLASS FILES BY 
PERIODS USING TWO MENUS: PERIOD MENU AND FILE MAINTENANCE MENU 
WRITTEN FOR A TRS-80 MODEL 4 COMPUTER W/ WHILE-WEND & SWAP 

REM***VARIABLE NAMES USED*** 

F$=NAME OF SEQUENTIAL DATA FILE 

STU . NAME$=STUDENT ' S NAME 
* S.NAME$=NAME TO BE CORRECTED 

S.N$=CORRECT NAME 

SN$=NAME TO BE DELETED 
' GRADE$=GRADE LEVEL OF STUDENT 
1 GR$=GRADE LEVEL CORRECTION 

S/N/S1/S2=SUBSCRIPTS and COUNTERS 

i 

DIM STU. NAME$ (40), GRADES (40) 

REM***PERIOD SELECTION MENU*** 
CLS 

PRINT " PERIOD MENU": PRINT 
PRINT "CODE FUNCTION" 
UPDATE PERIOD 



0690 



0710 
0720 
0730 



0750 
0760 
0770 
1000 
1010 
1020 
1030 



PRINT " 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
IF PERIOD 
PRINT 
PRINT " 
INPUT " 
IF PERIOD 
IF PERIOD 
IF PERIOD 
IF PfRIOD 
IF PERIOD 
IF PERIOD 
IF PERIOD 



1 UPDATE PERIOD 1 CLASS LIST" 

2 2 CLASS LIST" 

3 3 CLASS LIST" 

4 4 CLASS LIST" 

5 5 CLASS LIST" 

6 6 CLASS LIST" 

7 END PROGRAM" 
PRINT "WHICH PERIOD DO YOU WISH TO CREATE/UPDATE? 
ENTER A NUMBER 1 THROUGH 7: "; PERIOD 

= 1 AND PERIOD <=7 THEN 0680 



ii . 
» 



PERIOD "; PERIOD " IS INVALID" 
PLEASE RE-ENTER 1, 2, 3, 4, 5, 6 OR 7: 



THEN F$="ONE": GOTO 0750 
THEN F$="TWO": GOTO 0750 
THEN F$="THREE" : GOTO 0750 
THEN F$="FOUR": GOTO 0750 
THEN F$="FIVE": GOTO 0750 
THEN F$="SIX": GOTO 0750 
T HEN 0760 



PERIOD: GOTO 630 



GOTO 1000 

PRINT: PRINT "END OF CLASS ROSTER PROGRAM" 
END 

REM***MENU FOR FILE CREATION AND MAINTENANCE' 
CLS 

PRINT " FILE CREATION/MAINTENANCE MENU": PRINT 
PRINT "CODE FUNCTION ' 



:*** 
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1040 PRINT " i CREATE AND ADD NAMES TO CLASS I 1ST" 

1050 PRINT " 2 SORT NAMES IN CLASS LIST' 

1060 PRINT " 3 CHANGE/ CORRECT NAME(S) ON CLASS LIST" 

1070 PRINT " 4 DELETE NAME(S) FROM CLASS LIST" 

1080 PRINT " 5 PRINT/DISPLAY NAMES ON CLASS LIST 11 

1090 PRINT " 6 RETURN TO MAIN MENU" 

lldd PRINT: PRINT "ENTER A NUMBER 1 THROUGH 6: " 

iiid C$=INPUT$(1) 

1115 ' MENU SELECTION (1) (2) (3) (4} (5) (6) 

1120 ON INSTR(" 123456", C$j GOTO 2000, 3000, 4000, 5000. 6000, 500 

1130 SOUND 2, 0: PRINT "INVALID NUMBER. PLEASE RE-ENTER 1, 2, 3 A c g 

; : GOTO 1110 ' " 

1140 ' 

2000 REM***CREATE AND ADD NAMES TO CLASS LIST*** 

2010 PRINT "CREATING/UPDATING CLASS LIST FOR PERIOD: "; F$ 

2030 OPEN "E", 1, F$ 

2035 CONTINUE$="Y" 

2040 WHILE CONTINUE$="Y" 

2050 CLS: PRINT 

2060 LINE INPUT "ENTER STUDENT'S NAME "; STU. NAMES: PRINT 
2080 LINE INPUT "ENTER STUDENT'S GRADE LEVEL "; GRADES 
2090 WRITE #1, STU. NAMES, GRADES 

2100 PRINT: INPUT "MORE NAMES TO ENTER (Y/N) "; CONTINUES 
2110 WEND 
2120 GLOfE #1 
2130 GOTO 1000 
2140 ' 

3000 REM***S0RT CLASS LIST*** 
3005 'LOAD CLASS FILE INTO TABLE 
3010 OPEN "1% 1, F$ 
3020 WHILE NOT EOF ( i ) 
3030 LET S=S+1 

3040 INPUT Hi STU NAME$(S), GRAD£$(S) 
3050 WEND 
3060 CLOSE #1 

3065 CLS: PRINT TAB(IO) "SORTING" 
3070 FOR Sl= 1 TO S-l 
3080 FOR S2=S1+1 TO S 

3090 IF STU. NAMES (S2) =STU. NAMES (SI) THEN GOTO 3120 

3100 SWAP STU » NAMES ( SI } . STU . NAMES ( 52 ) 

3110 SWAP GRADE$(S1), GRADES (S2) 

3120 NEXT S2 
3130 NEXT SI 

3135 CLS: PRINT TAB(IO) "SORT COMPLETED" 
3140 ' 

3150 REM***REWRITE SORTED CLASS LIST '0 FILE*** 
3160 OPEN "0", 1, F$ 
3170 FOR N= 1 TO S 

3180 WRITE #1, STU.NAME$(N), GRADES (N) 



122 



122 



Handout #4 
Page 4 of 5 

File Handling and Project 

3190 NEXT N 
3200 CLOSE #1 
3210 GOTO 1060 
3220 1_ 

4000 REM***CHANGE/CORRECT NAMES ON CLASS LIST*** 
4005 ' LOAD CLASS FILE INTO TABLE 
4010 OPFN 1, F$ 

4015 £-0 

4020 WHiLE NOT EOF(l) 
4030 LET S=S+1 

4040 INPUT Hi STU.NAMESS(S), GRADE$(S) 

4050 WEND 

4050 CLOSE #1 

4070 ' 

4080 CLS 

4085 N=0 

4090 LINE INPUT "ENTER NAME OF STUDENT YOU WISH TO CHANGE "; S. NAMES 

4095 NAME.FOUND$="N" 

4100 WHILE NAME.FOUND$<> "Y" 

4105 ON ERROR GOTO 5500 

4110 LET N=N+1 

4115 ON ERROR GOTO 5500 

4120 IF S. NAMES <>STU. NAMES (N) THEN 4240 

4130 LET NAME. FOUND$="Y" 

4150 PRINT "THE STUDENT'S NAME IS 11 ; STU.NAME$(N) 

4160 PRINT "GRADE IS "; GRADES (N) 

4170 INPUT "PRESS < ENTER > TO CONTINUE" ; R$ 

4180 PRINT "IF YOU ARE CHANGING NAME AND/OR GRADE, TYPE IN THE CORRECT 
DATA" 

4190 PRINT "OTHERWISE, HIT < ENTER ^> KEY" : PRINT 
4200 LINE INPUI S,N$ 
4210 LINE INPUT GR$ 

4220 IF S,N$= THEN STU.NAME$(N)=STU. NAMES (N) 

ELSE Si U. NAMES (N)=S.N$ 
4230 IF GR$="" THEN GRADES ( N ) =GRADE$ ( N ) 

ELSE GRADES (N)=GR$ 

4240 WEND 
4270 ' 

4280 REM***RFWR!TE FILE TO DISK*** 
4290 OPEN " 1, F$ 
4300 FOR N= I TO S 

4310 WRITi: rfi, STU.NAME$(N), GRADES (N) 
4320 NEXT N 
4330 CLOSE fl 
4340 GOTO 1000 
4350 ' 

5000 REM***DELETE NAMES FROM CLASS LIST" 
5005 ' LOAD CLASS FILE INTO TABLE 
5010 OPEN "I"* 1 % F$ 
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5020 LET S=0 

5030 WHILE NOT EOF(l) 

5040 LET S=S+1 

505C INPUT #1, STU. NAMES (S), GRADE$(S) 

5060 WEND 
5070 CLOSE #1 
5080 ' 
5090 CLS 

5100 LINE INPUT "ENTER STUDEN'. NAME YOU WISH TO DELETE "; SN$ 

5100 N=0 

5115 FOUND$="N" 

5120 WHILE FOUND$o"Y" 

5125 1 ON ERROR GOTO 5500 

5130 N=N+1 

5140 IF SN$-=>STU. NAMES (N) THEN GOTO 5170 

5150 FOUND$="Y" 

5160 STU.NAME$(N)="ZZZ" 

5170 WEND 

5200 ' 

5210 REM***REWRITE CLASS LIST TO FILE*** 
5220 OPEN "0", 1, F$ 
5230 FOR N=l TO S 

5250 WRITE #1, STU,NAME$(N) , GRADE$(N) 
5260 NEXT N 
5270 CLOSE #1 
5280 GOTO 1000 
5290 • 

5500 Pi IT "NAME NOT FOUND" : FOR C=l TO 1000: NEXT C: RESUME 1000 

6000 REM--**PRINT/DISPLAY CLASS LIST*** 

6010 A$=" ##. \ x \v 

6020 CLS 

6030 PRINT " DISPLAY CLASS LIST" 

6040 PRINT: INPUT "DO YOU WANT A HARD COPY (Y/N)": R$ 

6050 IF R$="Y" THEN SYSTEM "LINK *D0 *PR" 

6060 PRINT TAB (15) "CLASS LIST": PRINT 

6070 PRINT TAB(15) "PERIOD "; F$ : PRINT 

6080 OPEN "I", 1, F$ 

6090 PRINT " NAME GRADE": PRINT 

6100 N0=1 

6110 WHILE NOT E0F{1) 

6120 INPUT #1, STU.NAME$, GRADES 

6130 IF STU.NAME$="ZZZ" THEN GOTO 6160 

6140 PRINT USING A$; NO; STU . NAME$ , GRADES 

6150 NO=NO+1 

6160 WEND 

6165 IF R$="Y :| THEN SYSTEM "RESET *D0 *PR" 
6170 CLOSE #1 
6180 G0T0 1000 
6190 ' 
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NAME 

DAT? ~~ 

PErslTJD" 



RANDOM ACCESS DATA FILES* 

1. Write a program to create a random access data file, named PRODUCT, that 
contains the inventory of products carried by an imaginary business. Each 
random access record contains the following data for one item of inventory 
in the order shown below. Numbers in parentheses indicate maximum stnnq 
lengths. 3 



P$ = product number (4) 

1$ = description of inventory item (20} 

S$ = supplier {20) 

L = reorder point (how low the stock of item can Bp before reordering) 
Y = reorder quantity 

Q = quantity available (currently in stock} 
C = cost (from supplier) 

U = unit selling price (what the item is sold for) 
Here is the introductory module: 



100 


REM 


110 


REM 


120 


REM 


130 


REM 


140 


REM 


150 


REM 


160 


REM 


170 


REM 


180 


REM 


190 


REM 


200 


REM 


210 


REM 


220 


REM 


230 


REM 



240 REM 



P$ = PROD. NO. (4) 

1$ = ITEM DESCRIPTIONS) 

S$ - SUPPLIER (20) 

L = REORDER PDINI 

Y = REORDER QUANTITY 

Q = QUANTITY 

C = COST 

U = UNIT SELLING PRICE 



PRODUCT \ RANDOM ACCESS FILE) 



Using the prog -am, create a. rasiyom access file. Make op your own data for 
20 records (inventory i tern.; ) and enter them into the file. This file will 
be needed in problems #2 and #3 for other teams to use. 

A flowchart and good documentation are required. 
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Possible Solution to Problem 1 
Using Applesoft BASIC 

100 REM PROB 1 SOLUTION 
110 REM 

120 REM VARIABLES USED 
130 REM P$ = PROD. NO. (4) 
140 REM 1$ = ITEM DESCRIPTION (20) 
150 REM S$ = SUPPLIER(20) 
160 REM L = REORDER P0INT(4) 
170 REM Y = REORDER QUANTITY(4) 

180 REM Q = QUANTITY IN ST0CK(4) 

190 REM C = WHOLESALE COST (4) 

200 REM U = UNIT SELLING PR ICE (4) 

210 REM N = RECORD NUMBER DESIRED 

220 REM I = INDEX FOR ARRAY 

230 REM 

235 kEM FILE USED 

240 REM PRODUCT (RANDOM ACCESS FILE] 

250 REM INITIALIZE ROUTINE 

260 CLEAR 

265 D$ = CHR$(4) 

270 HR1NT D$;"OPEN PRODUCT, L64" 

280 INPUT "HOW MANY RECORDS DO YOU WANT?" ; N 

285 DIM P$(N),I$(N),S$(N),L(N),Y(N),Q(N),C(N),U(N) 

290 REM 

300 REM DATA ENTRY MODULE - DATA ENTRY TESTS OMITTED 

305 FOR I =1 TO N 

310 INPUT "ENTER PRODUCT NUMBER (4 DIGITS):"; F$(I] 

320 REM*** DATA ENTRY TESTS GO HERE 

330 INPUT "ENTER ITEM DESCRIPTION (20 CHAR. MAX.)"; I$(I) 

340 REM*?* DATA ENTRY TESTS GO HERE 

350 INPUT "ENTER NAME OF SUPPLIER (20 CHAR. MAX.)"; S$(I) 

360 REM *** DATA ENTRY TESTS GO HERE 

370 INPUT "REORDER ROINT"; L(I) 

380 REM *** DATA ENTRY TESTS GO HERE 

390 INPUT "REORDER QUANTITY"; Y(I) 

400 REM *** DATA ENTRY TESTS GO HERE 

410 INPUT "QUANTITY NOW IN STOCK"; 0(1) 

420 REM *** DATA ENTRY TESTS GO HERE 

430 INPUT "WHOLESALE COST"i C(I) 

440 REM *** DATA ENTRY TESTS GO HERE 

450 INPUT "UNIT SELLING PRICE"; U(I) 

4ED REM *** DATA ENTRY TESTS GO HERE 

470 REM *** DATA ENTRY CHECKS DELETED TO SHOW PROGRAM STRUCTURE 

480 NEXT I 

485 REM 

490 FOR I = 1 TO N 

495 PRINT D$;"WRITE PRODUCT, R" ; I 
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EGG PRINT P${i) 

510 PRINT I$(I) 

526 PRINT S$(I) 

525 PRINT L(I) 

536 PRINT Y(I) 

546 PRINT Q(I) 

556 PRINT 6(15 

566 PRINT U(I) 

576 NEXT I 

636 REM 

646 REM CL6SE FILE R6UTINE 

656 PRINT E>$:"eteSE PR6DUCT 

666 PRINT "FILE et6SEB." 

676 ENB 



*Adapted from Data File Programming in BASIC by LeRoy Finkel and Jerald 
R. Brown, pages 257 and 261; copyright (c) 1981 by John Wiley and Sons, 
Inc., New York, New York. Reproduced with permission. 
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NAME 

DATE 

PERTOl T" 

RANDOM ACCESS DATA FILES* 

2. Write two modules for this program, one to create and another to 
read/display a sequential file naned POINT, which has three data items per 
dataset. The first data item is the product number from each dataset in 
PRODUCT, the second data item is the value for the quantity in stock, and 
the third data item is a value that corresponds to the record number in the 
PRODUCT file where that product nuirber is stored. There should be exactly 
as many datasets in the sequential file POINT as there are records in the 
random access file PRODUCT. Your file creating module must input an entire 
dataset from the random access file named PRODUCT, while only the first and 
sixth data items and the record number are output to the sequential file 
named POINT. This file will be needed in problem #3 for use by another team 
of students. A flowchart and good documentation are required. 
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100 
110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

315 

320 

330 

340 

350 

355 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

455 

460 

470 

490 

495 

500 

510 
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Possible Solution to Problem 
Using Applesoft BASIC 



REM PROB 2 
REM CREATE 
' PRODUCT' 

Rem 

variables 



REM 
REM 

Rem 

REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



SOLUTION 
A POINTER 



USED 



FILE NAMED 'POINT' FOR 



ACCESS 



P$ 

1$ 

S$ 

L 

Y 

Q 
C 

u 

R 
N 



PROD. NO. {-■ 
ITEM DESCRJ 
NAME 



"ION (20) 

supplier (20) 
reorder point ' ' ) 
reorder quantit,' (4) 
quantity in stock (4) 
wholesale cost (4) 
unit selling price (4) 
record number 
Number of records to read 



FILES USED 
RANDOM ACCESS FILE NAME: PRODUCT 
DATASET FORMAT: P$ , 1$ ,S$ ,L , Y ,Q,C 
SEQUENTIAL FILE NAME : POINT 
DATASET FORl-iAT : P$,Q,R 



REM INITIALIZE ROUTINE 
CLEAR 

D$ = CHR$(h) 

PRINT D$;"OPEN PRODUCT ,L64" 

PRINI D$;"OPEN POINT" 

INPUT "HOW MANY RECORDS DO YOU 

REM 

' PRODUCT' AND WRITE 1 
TO N 

READ PRODUCT ,R";R 
INPUT 1$ 
INPUT L 
INPUT Q 
INPUT U 
WRITE POINT" 



ii 
» ^ 



READ 
= 1 
0$;" 
P$ : 
S$ : 
Y : 
C : 
D$;' 



REM 
FOR R 
PRINT 
INPUT 
INPUT 
INPUT 
INPUT 
PRINI 

PRINT P$,Q,R 
NEXT R 
REM 

REM CLOSE FILES ROUTINE 
PRINI D$; "CLOSE PRODUCT" 
PRINT D$; "CLOSE POINT" 
REM 

REM READ/DISPLAY : POINT' 
PRINT D$;"OPEN POINT" 



WANT TO READ?" ;N 
POINT 1 
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520 PRINT D$;"READ POINT" 

530 FOR R = 1 TO N _ 

540 INPUT P$ : INPUT Q : INPUT R 

550 PRINT 51 PROD. NO. ";P$;" QUANTITY IN STOCK ";Q;" RECORD NO: ":R 
560 NEXT R 
565 REM 

570 REM CLOSE FILE ROUTINE 
580 PRINT D$;" CLOSE POINT" 

590 PRINT: PRINT "ALL "; Rj " D<\TASETS DISPLAYED AND FILF CLOSED. " 
600 END 



♦Adapted from Data File Progr a mming in BASIC by LeRoy Finkel and Jerald 
R. Brown, pages 258 and 262; copyright (cj 1981 by John Wiley and Sons, 
Inc., New York, New York. Reproduced with permission. 
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NAME 

DATE 

PERIOTF - 

RANDOM ACCESS DATA FILES* 

3; Write a program to display the contents of selected records from the 
random access disk file named PRODUCT that was created in problem #1 and 
used in problem #2. 

Write a second program that will allow the user to select a record to be 
displayed from the sequential file, POINT, created in problem #2. 

A flowchart and good documentation are required. 



110 


REM 




120 


REM 


VARIABLES USED 


130 


REM 


PS = PROD. NO. (4) 


140 


REM 


1$ = ITEM DESCRIPTIONS) 


150 


REM 


S$ = SUPPLIER^} 


160 


REM 


L = REORDER PQINI 


170 


REM 


Y = REORDER QUANTITY 


180 


REM 


Q = QUANTITY 


190 


REM 


C = WHOLESALE COST 


200 


REM 


U = UNIT SELLING PRICE 


210 


REM 


R$ = PRESS 'ENTER' TO CONTINUE VARIABLE 


220 


REM 




230 


R P M 


FILE USED 


240 


REM 


PRODUCT - (RANDOM ACCESS FILE) 


250 


REM 
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Possible Solutions to Problem 
Using Applesoft BASIC 



100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

265 

270 

275 

280 

285 

290 

300 

310 

315 

320 

330 

340 

350 

360 

370 

380 

390 

395 

400 

410 

420 

430 

440 

450 

460 

470 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 



PROB 3 SOLUTION USING THE RANDOM ACCESS FILE, PRODUCT 
VARIABLES USED.. 



P$ 

1$ 

S$ 

L 

Y 

Q 
C 

u 

R 



PROD. NO. (4) 
ITEM DESCRIPTION (20) 
NAME OF SUPPLIER (20) 
REORDER POINT (4) 
REORDER QUANTITY (4) 
QUANTITY IN STOCK (4) 



= WHOLESALE COST {4} 
= UNIT SELLING PRICE 
= SELECTED RECORD 



(4) 



FILE USED 
PRODUCT - 



REM 
REM 
REM 
REM 
REM 
CLEAR 

D$ = CHR$(4) 
ON ERR GOTO 400 
"ENTER A 
' TO STOP 
D$;"OFEN 
"WHICH 
GOTO 



(RANDOM ACCESS FILE) 



INITIALIZE ROUTINE 



NEGATIVE NUMBER" 
THE PROGRAM." 
PRODUCT, L64" 
RECORD?" ;R 
440 



SELECTED DATASET FROM PRODUCT 



PRINT 
PRINT 
PRINT 
INPUT 
IF R<0 
REM 
REM 
PRINT 
INPUT 
INPUT 
INPUT 
INPUT 
PRINT 

PRINT P$;I$;S$;L;Y;Q;C;U 
GOTO 300 

PRINT "THE FILE IS NOT THAT LONG." 

GOTO 290 

REM 

REM CLOSE FILE ROUTINE 

PRINT : PRINT "ALL REQUESTED DATASETS FROM PRODUCT DISPLAYED 
PRINT DS; "CLOSE PRODUCT" 
PRINT "FILE CLOSED. " 
END 



PS 
S$ 
Y 

e 

D$ 



READ AND DISPLAY THE 
S;"READ PRODUCT, R" ;R 
INPUT 1$ 
L 

Q 
U 



INPUT 
INPUT 
INPUT 
PRINT 
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loo 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

325 

330 

340 

350 

360 

370 



PROB 3 SOLUTION USING THE SEQUENTIAL FILE, POINT 
VARIABLES USED 



P$ 
Q 
R 
N 
I 

R$ 
FILE 

Point 



= PROD. NO. 
= QUANTITY IN STOCK 
= RECORD NUMBER 
= SELECTED RECORD 
- INDEX FOR LOOP 
= USER RESPONSE TO CONTINUE 
USED 

SEQUENTIAL FILE 



REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

REM INITIALIZE ROUTINE 
CLEAR 

D:S = CHR$(4) 
ON ERR GOTO 340 
D$;"OPEN 

UseUect a 

= 1 TO N 
D$;"READ POINT" 
P$ : INPUT Q : INPUT 
= N THEN PRINT P$ , Q, 
I 

REM 

REM CLOSE FILE ROUTING 

PRINT D$;" CLOSE POINT" 

INPUT "DO YOU WISH TO CONTINUE? 

IF LEFTS (R$,r = "Y" THEN HOME : 

END 



PRINT 
PRINT 
FOR I 
PRINT 
INPUT 
IF I : 



POINT" 
RECORD 



NUMBER."; N 



GOTO 340 



(YES/NO)"; R$ 
GOTO 270 



♦Adapted from D a ta File Programming in BASIC by LeRoy Finkel and Jc - Id 
R. Brown, pages 289 and 294; copyright (c) 1981 by John Wiley and Sons, 
Inc., New York, New York, Reproduced with permission. 
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NAM E 

DAT E 

PFRIQ P _ 

CREATING AN INDEX ED-SEQUENTIAL FILE 

Sometimes a file, (random or sequential) becomes too large to sort in 
the computer's limited main memory. You, therefore, need to create a 
smaller file, called an INDEX, which contains only the essential elements 
that you desire sorted, such as name or ID numbers, and the KEY or location 
of that record In the MASTER file. Once this indexed file Is sorted it can, 
fnr example, be read sequentially to print the MASTER file In alphabetic 
order. Simply retrieve the KEY portion of the indexed record, and you have 
the location of the master record in MASTER file. 

In order to create this i..Je;;ed file, you must first place the 
essential. . .element fs). ..that is /a re to be sorted into an array. Why an array? 
Because you can use array expressions to do Operations (such as sorts) on 
the entire group of numeric or character array data-items instead of on each 
data-item individually (scalar operations). 

When an a^ray is sorted, character arrays are sorted or indexed 
according to the collating sequence in effect or. your computer, and numeric 
arrays are indexed or sorted numerically. 

You may use any type of sort to alphabetically arrange the array ele- 
ments. The sample solution for this problem contains a TRSD0S Mod III system 
sort command (CMD "0"). 

0nce . the array is sorted, each array element can be stored in a 
which can be used to retrieve and update records from the 

*N0IE: The solution uses a variable length record for the random file, 
MASTER. Please be sure to enter the number of variable length files (2?) 
you are using when BASIC prompts you for "How Many Files?" 
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STUDENT WORKSHEET 
Creating and Indexed-Sequential File 

A. STATEMENT OF THE PROBLEM 

Create a structured program that will print out an alphabetic listing of 
the random file, MASTER, through the use of an iridexe - -s ouehtial file 
called INDEX. 





The MASTER record looks like this: 




b$ N$ 


C$ 


D$ 




SEX STUDENT'S NAME 


COURSE NO 


OTHER DATA 


1 


M MONIZ 


0006 


XXXXXXXXXXXXXXXXXXXXXXXXX 


2 


F YUEN 


0001 


XXXXXXXXXXXXXXXXXXXXXXXXX 


3 


F SMITH 


0009 


XXXXXXXXXXXXXXXXXXXXXXXXX 


4 


M ABE 


0006 


XXXXXXXXXXXXXXXXXXXXXXXXX 


5 


F KAMAKA 


0002 


XXXXXXXXXXXXXXXXXXXXXXXXX 




FIELD 


FIELD 


LENGTH 




SEX 


1 character 




STUDENT'S NAME (LAST) 


25 characters 




COURSE NO. 


4 characters 




OTHER DATA 


50 characters. 




The output should look 


like this 






ALPHABETIC MASTER FILE LIST... C 




STUDENT NAME 


SEX 


COURSE NO OTHER DATA 




1 ABE 


M 


0006 XXX 




2 KAMAKA 


F 


0002 XXX 




3 MONIZ 


H 


0006 XXX 




4 SMITH 


fc 


0009 XXX 




5 YUEN 


F 


0001 XXX 
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The Indexed-Sequential file should look like this: 



his 'Ji& 


RECLO 


^TIinFWT M AMP 


be prion i f\a\ri'f\M 


ABE 


4 


KAMAKA 


5 


MONIZ 


i 
i 


SMITH 


3 


YUEN 


C 



List the main objective(s) of this program. 



What data are contained in each MASTER file record? What variable names 
will you assign to these elements? What is the length of each field? 



What field(s) must be included in the array that will create the Indexed- 
Sequential file? Which is the primary field that, must be first in the 
array element? 



Kow will you create the elements of the above array? 



What other item(s), if any, must be included in each array element?' 
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6. Will the array be an c iphabetic or numeric array? How larqe will vbu 
dimension this array? 



7. What name will you assign to the Indexed-Sequential file? 
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A Possible Solution to the Problem of 
Creating ar: Indexed-Sequential File 
for an Alphabetic Master Student List 

005 REM WRITTEN FOR TRS-80 MODEL 3 AND 4 COMPUTERS 
010 REM VARIABLE NAMES USED 



020 


REM 


MASTER = 


MASTER FILE 


030 


REM 


INDEX = 


INDEXED-SEQUENTIAL FILE 


040 


REM 


N$ = 


NAME OF STUDENT (2i.j 


050 


REM 


S$ = 


SEX (1) 


060 


REM 


C$ 


COURSE (4) 


070 


REM 


D$ 


OTHER DATA (50) 


080 


REM 


NX 


NUMBER OF RECORD BEING 1 



090 REM NAM$ = NAME FIELD INDEXED-SEQUENTIAL FILE 
100 REM RECLO = RECORD LOCATION ON MASTER FILE 
110 REM RL = LENGTH OF MASTER FILE RECORD - 80 CHARACTERS 
120 CLEAR 30000 
130 DIM A$(100) 
135 RL = 80 
137 NX = 0 

140 OPEN "R" .1 "MASTER" ,RL 
150 OPEN "0" ^2," INDEX" 

160 FIELD 1, 1 AS S$, 25 AS N$, 4 AS C$, 50 AS D$ 
180 IF EOF(l) THEN NX = NX - 1 
ELSE GOSUB 2000: 
GOTO 180 

200 REM *************************** 

210 REM SORTING THE ARRAY A$(NX) 

220 REM *************************** 

230 CMD"0", NX, A$(l) 

300 REM **************************** 

310 REM CREATING INDEX FROM SORTED ARRAY A$(NX) 

320 REM **************************** 

340 FOR I - 1 TO NX 

350 PRINT #2, A$(I) 

360 PRINT A$(I) 

370 NEXT I 

380 CLOSE 2 

400 REM **************************** 

410 REM PRINTING THE ALPHABETICAL LISTING OF MASTER FILE 

420 REM **************************** 

421 LPRINT CHR$(12): LPRINT TAB (40) "ALPHABETIC MASTER FILE LISTING" 
423 LPRINT: LPRINT " NAME"; TAB(30)"SEX" ; TAB (47) "COURSE", "OTHER DATA" 
425 LPRINT: LPRINT 

430 OPEN " I" i2+" INDEX" 

440 FOR I = 1 TO NX 

450 INPUT #2,NAM$,RECL0 

460 GET i, RECLO 

470 LPRINT N$,S$,C$,D$ 

480 NEXT I 
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0500 REM ************ •••-•** 
0510 REM ENS OF JOB ROUTINE 
0520 REM. *************** 
0540 CLOSE 
0550 END 

2000 REM **************************** 

2010 REM CREATING ARRAY A$(N%) FROM MASTER FILE RECORDS 
2020 REM **************************** 
2040 U% = H% + 1 
2050 GET 1, H% 

2060 A$(N%) = N$ + "," + STR$(N%) 

2070 PRINT A$(N%) 

2080 RETURN 
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SAM E 
DAT E 

PERl W~ 

TtRM PROJECT 



The following is a list of the items you will heed for your term project to 
receive credit. The project is due on --- ■ • Extra points will 

be added for projects handed in early arid points will be subtracted for late 
projects. 

1. A cover of some sort with your name arid project title on it* 

2. A detailed written description of the problem of your program will 
"solve 11 and the procedure that you will use to solve it. Include 
any equations that must be used. 

3. Operating instructions for running your program. 

4. List of variables us_ed_ in your program and their purpose. This 
list may be in alphabetical order or the order in which they are 
used in your program. 

5. A flowchart or algorithm. 

6. A listing of the program and a sample run, if possible. 

7. The grading sheet. 

Other items that ean be included in your project for additional credit are: 

1. A hiera rchy ehart; 

2. A logo for the program, using graphics; 

3. A "menu" to make the program more user friendly. 
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TERM PROJECT 
IDEAS 



CONVERTING FROM DECIMAL TO BASES OTHER THAN BINARY 

SOLVING SYSTEMS OF EQUATIONS 

MULTIPLE CHOICE TEST IN ANY SUBJECT 

SOLVING TRIANGLES USING TRIGONOMETRY 

GRAPHING LINEAR, QUADRATIC, POLAR EQUATIONS 

PASCAL'S TRIANGLE 

MAGIC SQUARES 

PR I HE NUMBERS 

MUSIC 

METRIC CONVERSIONS 
PALINDROMES 
SORTING METHODS 
GAMES, SUCH AS: 

TIC TAC TOE, DICE GAMES, JAN KEN PC, REVERSE, ACEY DUECY, BINGO, BURIED 
TREASURE 
ADDRESS BOOK 

DRAWING PROGRAM (ETCH A SKETCH) 
HAWAII STATE DRIVER'S TEST 
ANAGRAMS 

SIMULATIONS (SLOT MACHINE) 
CONIC SECTIONS 
CHECKBOOK PROGRAM 

GIVEN A YEAR, PRINT THE CALENDAR FOR THAT YEAR 

TUTORIAL PROGRAM (TEACHING RULES OF MULTIPLYING WITH SIGNED NUMBERS) 
MAD LIBS 

PROGRAMS FOR TEACHERS, DEPARTMENTS OR CLUBS, SUCH AS: 

TEST BANKS, SURVEY RESULTS, TEXT/EQUIPMENT INVENTORIES, SCHOOL PAPER, 
YEARBOOK 



OR ANY IDEAS OF YOUR OWN (SUBJECT TO TEACHER APPROVAL!) USE OF TEXT 
FILES IS ENCOURAGED. 



ERIC 



141 

141 



Handout #7_ 
Page 3 of 4 

File Handling and Project 



TERM PROJECT 
FLOWCHART 




READ 
ATTA 

! SHE 


THE 
CHED 
ET 






TALK TO PAR: 
ENTS, TEAC- 
HERS, AND/ 
OR FRIENDS 




< ONE YOU 
NrfANT T 







READ 


BOOKS 


> WITH 


IDEAS 




i 



YES 




SEE YOUR 
TEACHER 



YES 



EXPLAIN 
IDEA TO 
TEACHER 




WAS 

IT x 
APPnOVEDK N0 



WRITE A 

DETAILED 

FtOWCHART 



WRITE 
PROGRAM 
IN BASIC 



-ENTER- INIO- 
THE COMPUTER 

'andTe-bug 



COLLECT 
INFORMATION 




YES 




PREPARE 
TERM 
PROJECT 
BOOKLET 



TALKTO 
TEACHER 



HAND 
IT 
IN 



c 



ENO 
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NAME 

DATE - 

PERIOD 

TERM PROJECT. 
GRADING SHEET 

Project Title 



Possible Points 



Neatness, appearance, organization 40 

Description of problem and solution 30 

Topic difficulty 40 

Topic suitability, usefulness, and 30 
creativity 

Flowchart or algorithm 30 

List of variables 30 

Program 100 
Does it work? 

Does it check all possibilities of data? 

Is it user friendly with a nice screen display? 

TOTAL 300 



Date turned in 



Early/Late points 



FINAL TOTAL 



1 point for every school day it is early (Maximum of points) 

5 points for every school day it is late 



143 

143 



ERLC 



SAMPLE, ACTIVITY CLUSTER #6 
Data Structures 



Topics : 



1. Stacks 

2. Queues and Linked Lists 

3. Trees 

Classroom Management : 

The class iz <: group wi 1 1 be involved with most of these activities. 
Some assignments may require pairs of students. 

Materials : 

Textbook, Data Structure^ for Persona" Computers by Y. Langsam, M. J. 

Augenstein and A. M. Tenenbaum; 
Videotape player and videotape, "Database Processing Systems 11 
Overhead projector and prepared transparencies; 
Handouts. 

Time for Activities : 

Approximately one and a half to three weeks may be needed, depending on 
the level of skills of the students. Time for the term project should 
also be provided. 

T eacher ^top^raiiofl and Procedures: 

Prepare needed transparencies and handouts. Preview videotape, if 
possible. All sample materials for these activities are located in the 
Sample Assignments and Materials for Activity Cluster #6. 

1. Using the overhead projector, introduce the major concepts of data 
structures. Distribute Handout #1- Outline Wotes. Start with the 
easiest—the stack—an ordered collection of items into which new 
items may be inserted and from which items may be deleted at one 
end. Provide illustrations. 

2. Assign some reading and/or exercises related to stacks for pairs of 
students to do. Handout #2 - Exercises for the Stack Data 
Structure could be used. When students have finished, discuss and 
compare results. 

3. Continue the lecture on data structures by discussing queues end 
1 inked 1 ists. Distinguish the difference between stacks and 
queues. (Both are lists of things, but queues have one end for 
adding items and another end for removing items. ) Linked lists 
have pointers indicating th: beginning, the end, and other areas in 
the list. Provide illustrations. Refer to Handout #1. 
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4. Assign some reading and/or exercises related to queues and linked 
lists for pairs of students to do. Handout #3_- Queue Problems and 
HanHoot #4 - Exercises for the Linked Ust Data Structure could be 
used. Have students discuss and compare results when finished. 

5. Finalize the lecture bh data structures by presenting tree 
structures, especially binary trees^ Emphasize the difference in 
searching techniques between trees and lists. (Linked lists require 
a linear search, whereas binary trees allow binary search 
techniques.) Provide illustrations. Refer to Handout #1. 

6. Assign some reading and/or exercises related to binary trees for 
pairs, of students to do. Handout #5 - Exercises for the Binary 
Tree Data Structure can be used. Again, have students discuss ^nd 
compare results when finished. 

7. Show the videotape* "Database Processing Systems, 11 which contrasts 
file processing with database processing* Tree structures play a 
major role in databases and are briefly discussed. Provide Handout 
#6 - Questions for. the Videotape, "Database Processing Systems" 
for student discussion following the presentation. 

3. Use discretion as to the appropriateness in assigning problems that 
incorporate data structures in BASIC programming. Time and student 
level of comprehension may limit such activities. The textbook 
suggested on the previous page will be most helpful here. 

Sample Assignments and Materials for Activity Gluster #5 : 

The following pages in this activity cluster provide handouts that 
could be used in *his course. 
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NAM E _ 

SAT E __ _ ~ 

PERIL S 

OUTLINE NOTES 

Data Structures 

I, Stack - an ordered col lection of items into which new items may be 
inserted and from which items may be deleted at one end—the "top." 

A. Examples - 

1. A stack of dishes in a cafeteria that supplies the top dish to 
the next customer; only the top dish can be removed. 

2. A stack of magazines. 

3. A stack of business records in a file. 

B. LIFO Structures 

1. last In, First Out; last item put on stack, first to be 
removed. 

2. Illustratration of four different views of the same stack. 
(See Illustration 1 which fol lows the outline.) 

G. Primitive Operations—given a stack 's' and an item 'i' 

1. Push - to place something on the top of the stack: push(s,i). 

2. Pop - to remove something from a stack: pop(s). 

3. Empty - to determine whether or not a stack is empty: 
empty (s). 

4. Stack top -to determine the top item on a stack without 
removing it: stacktop(s); this cannot be applied to an empty 
stack, as it is equivalent to pop(s) and push(s,i). 

B. Problem: check all parentheses and brackets for matches to see if 
this string is valid - (x + (y-[a + b]) * c - [(d + e)])/(h - 
(j-(k-[i - n]JJJ; 

i. Algorithm - 

Set validity flag to true. 
Set stack(s) tp_ empty. 

06 until flag is false or entire string has been read 
Read next symbol (i ) in string 

If symbol is '(', '[», ' 1 ("openers") then push(M) 
Else 

If symbol is t ) l 3 11 ("closers") then 

If empty (s) then set flag to false 
Else 
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pop(s,i) 

If i is not the matching "opener 11 for symbol 

set flag to false 
Hse 

continue 

Else 

continue. 

If not empty (s) then set flag to false. 

If flag is valid then write "The string is valid." 

Else 

write n The string is invalid.". 

2. Refer to Illustration 2, 

3. Practice Problems; refer to Handout #2. 
II. Queues and Linked Lists 

A. Queue - an ordered collection of items from which items may be 
deleted at one end (the front) and into which items may be inserted 
at the other end {the rear). 

1. Example of queues of people standing in line waiting for 
something; consider "sociology" of these kinds of queues. 

2. Example of records in Illustration 3. 

3. FIFO structures - first jin, first out - as opposed to stack:. 

4. Primitive Operations - given a queue 'q' and an item 'x' : 

a. Insert - to add something at the rear of the queue: insert 
(q»x); 

b. Remove - to delete something from the front of the queue 
this cannot be applied to an empty queue: x=remove(q) ; 

c. Empty - to determine whether or not the queue is empty: 
empty(q); 

d. Refer co Illustration 3 again. 

5. Underflow - result of an il 1 ^al attempt to remove an item from 
an empty queue. 

6. Overflow - result of having more items or elements in an array, 
used as a queue, than were allocated for the array. 

7. Specifications - 

a. Consider an array that holds a queue as a circle, not a 
straight I ina; 
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b. The value of the variable for the front element (FRONT) 
should be the. index of the array element immediately 
preceding the. first element of the queue; 

c. The value of the variable for the last element (REAR) 
should be the index of the last: element of the queue; 

d - A queue can grow only as large as one less than the size of 
the array. 

8. II lustrations of the specifications - 

a. If an array of 5 positions is considered a queue, the queue 
may have up to 4 members or elements. 

b. Examples cf a full queue: 



FRONT = 1 and REAR = 5 or 
FRONT = '2 and REAR = 1 

c. Refer to Illustrations 4 and 5. 

Case Study Problem; refer to Handout #3. 



B. Linked List - an ordered list consisting of elements called nodes, 
each having a data portion and a pointer portion that points to or 
gives the address of the next node. A "head" pointer points to the 
first element of the list, whereas a "nil" is the last pointer in 
the list. Refer to Illustration 6. 

1. A dynamic data structure, not having a fixed amount of storage, 
as allocated to stacks or queues. 

2. Can have an element easily inserted in or deleted from the 
middle whereas arrays in stacks or queues require vast movement 
of elements to accommodate the insertion or deletion. Refer to 
Illustration 7. 

3. Operations - give 'p 1 as a pointer, 'x 1 as an item and node (p) 
as the node pointed to by p: 

a. Insafter(p,x) - to insert an item into a list after a node 
pointed to by p; 

b. Delafter(p,x) - to delete an item from a list following 
node(p) ; 

c. Push and pop are still valid operations. 

4. Practice Problems; refer to Handout #4. 



Trees - a type of multiply-linked list, the nodes of which have more 
than one pointer field; a Binar; Tree has no more than two branches 
(pointers) from each node. 
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A. Root - topmost element or node of the tree; organization is from 
top down. 

B. Branch - a pointer field of a node in a tree, 

C. Leaf - any node with both pointer fields equal to Nil. 

D. Parent nodes point to children nodes below; every node is really 
the root of its own subtree. Refer to Illustration 8. 

E. Terms or descriptions to define and identify on Illustration 8: 

1. Strictly binary tree- every nonleaf node in a binary tree has 
non-empty right and left subtrees; 

2. Complete binary tree of level 'n' - each node at level n is a 
leaf and each node at lesser levels-has nonempty right and left 
subtrees; 

3. Almost complete binary tree - leaves are found only in the '\ist 
two levels of a binary tree; 

4. Level - the root of a tree is at level 0, and the level of any 
other node is 1 more than the level of its parent; 

5. Depth - the maximum level of any leaf in the tree. 

F. Operations oh Binary frees - given , p l as a pointer to a node : nd : : 

1. Info(p) - to return contents of nd; 

2. Left(p) - to return pointer to left child of nd; 

3. kight(p) - to return pointer to right child of nd; 

4. Parent(p) - to return pointer to parent of nd; 

5. Sibl ing(p) - to return pointer to sibling of nd; 

6. Maketree(x) - to create a new binary tree with one node having 
field x; 

7. Setleft(p,x) - to accept pointer p to a binary tree node nd 
with no left child and create a left child of nd with data 
field x; 

8. Setright(p,x) - to do the same thing as above but with a right 
child. 
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G. Traverse. a binary tree - to pass 
of its nodes once: 
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through the tree, enumerating each 



1; Preorder - start at the. root, travel along the left subtree, 
lis ting _each node as it fs encountered from the left side, 
Urdir~T jV cont1nue on t0 the ri 9Ht subtree, again listing 
\ K^y f each node as it is encountered from the left side 
until the last node is reached; 

2. Inorder - start with the last left descendant on the left 
subtree, travel along the left subtree, listing each node as it 
is encountered from the bottom,/ \ continue to the root 
and on to the right subtree ( {J in a similar manner; 

3. Postorder - start with the bottom node on the left subtree, 
travel upward along the right side, listing each node as it is 
encountered from the right side, f/^^ z '\ , continue on to the 
right subtree, again listing \l J^erJ each node from the 
right side until the last node is reached at the root; 

4. See Illustration 9. 

H. Example of an algorithm using the operation Intra(tree) to traverse 
a binary tree in inorder procedure and to print the contents of 
each of its nodes.* 



Read number 

tree = maketree(number) 

while there are numbers left in the input do 
read number 
q = tree 

while q < ^ null do 
p = q 

i f number info(p) 
then q = left(p) 

else q = right(p) 

endif 
endwtnle 

if number ^ info(p) 

then setleft(p, number) 
else setright(p,number) 
endif 
endwhile 

'traverse tne tree 
intrav(tree) . 

I. Practice Problems, refer to Handout #5. 

*Fitmi Data Structures for Personal Computers by Langsam, Auger.stein and 
lenenbaum, pe.ge 294; copyright (c) 1985 by Prentice-Hall, Inc., Englewood 
Cliffs, New Jersey. Reproduced with permission. 
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ILLUSTRATION 1 
THE STACK* 



Items deleted 



top 



Items inserted 



D C 



items inserted 



(b) 



Items deleted 



V/ 



(a) 



Items deleted 



top 



Items deleted 



(c) 



tc-. 



.ns inserted 



top 



items inserted 



Four different views of the same stack. 



*From Data Struc ture s for J'ersoria^ C omputers by Langsanu Augenstein and 
Tenenbaum, page 110; copyright [c) 198S^y Prentice-Hall, Inc., Englewood 
Cliffs, New Jersey. Reproduced with permission. 
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{x+ (... 



± 
£x + (y-t: 



{x + (y-[a-:b| . . . (x + (y- [a+bj ) . . . fx + (y- [a+b] ) *r 



{x + (y-(a+b] ) * C- [ (,3-te) ]> . . . {x + (y- [a+b] ) * c - t fd+ej ] } / (h - (j- (k- [ . 



{x+ (y-[a+b!) *c- [(d+ejj ? / (h - ( j-(k-[]-n] ) ) . .. {x + (y-[a+b]) *c-[(d+e)]} / (h- ( j- (k- [1-ri] ) ) ) 



The parenthesis stick at various stages of processing. 



*Frr ; Dr. ■? "fr uct u res for Personal Computers by Langsem, Augenstein and 
Jenenbai Tj copyright {c) 1985 by Pr en Lice-Hal 1 , Inc. , Englewood 

C'iffs, Reproduced with permission. 
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ILLUSTRATION 3 
THE QUEUE* 
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B 


c 



fa) 



Rear 



Front 



B C 



Rpar 



Front 



B C 



(c) 



Rear 



insert (qyA) ; 
insert (q,B) ; 
insert {q,C) ; 
x := reinove (q) ; 
insert ~(q~,T) ~) ; 
insert (q,£) 



Figure (a) 
Figure (b) 

Figure (c) 



Queues are essential to time-shared computer- systems. They are used to keep 
track of each user's input. The computer executes commands at one end of 
the queue while adding new commands to the other end as they come in. 



*From Data Structures for Personal Computers by Langsam, Augenstein and 
•nenbaum, page 155; copyright (cj 198ft by Prentice-Hall v Inc. Englewood 
Jiffs, New Jersey. Reproduced with permission. 
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ILLUSTRATION 4 
THE QUEUE* 
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REAR = i 



(b) 
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FRONT = REAR =2 

GVERFtCKI 



-Qf-TEM 



(a) 



FRONT = REAR 



Figure(a) : there are three elements in the queue - C, D and E in QITEM(3) 

QITEM(4) and QITEM(5) , respectively. Here REAR = 5 and FRONT = 2. 

Figure(b) : element F is inserted at the rear; thus moving REAR to position 

1; according to given specifications of a queue, this one is full. 

Figure(c) : element G is inserted but cannot be accepted, since an ov*r "^w 
results when FRONT = REAR. 

Figure(d) : no elements mean an empty queue ma FI^NT = REAR = 0 



*From Data Structures fo r Personal Computers by Langsam, Augensieln ind 
Tenenbaum, page 161; copyrTcj (cj 1985 by Prentice-Hal 1 , Inc., Englewoou 
Cliffs* New Jersey. Reproduced with permission. 
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ILLUSTRATION B 
THE QUEUE 



A queue simulated by a circular array 
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DATA POINTER DATA POINTER DATA POINTER DATA POINTER 



HEAD 



POINTER 



NODE 



nil 



NODE 



NODE 



NODE 



A linear linked list. 



EacH element in a linked list is known as a NODE and contains the DATA field 
with the information to be stored ana the POINTER field with the address 
that points to the next element in the list. 



-From Data Structures for Personal Computers by Langsam, Augenstein and 
Tenenoaum, page 165; copyright (cj 1985 by Prentice-Hal 1 , Inc. , Englewood 
Cliffs, New Jersey. Reproduced with permission. 
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ILLUSTRATION 7 
THF LINKED LIST* 
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XI 
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X3 
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(b) 



X5 



3- 



X6 -4-> X7 



X5 



X6 



-> X7 nil 



Figure (a): Inserting an element x between the .third unci fourth elements in 
an array or queue means moving items 4 through 7 each one slot first before 
the insertion. If the array had 1000 elements, a vast amount of changes 
would have to be made. 

Figure (b): Inserting an element x between the third and fourth elements in 
a linked list means inserting the element and adjusting only two pointers. 
The amount of work required is independent of the size of the list. 



*From Data Structures for Personal Computers by Langsam, Augenstein 
and Tenenbaum, pages 175-176; copyright (c) 1985 by Prentice-Hall, Ine. , 
Englewood Cliffs, New Jersey. Reproduced with permission. 
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THE BINARY TREE* 
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*From Data- Structures for Personal Computers by Langsam, Augenstein and 
Tenenbaum, page 288; copyright (c) 1985 by Prentice-Hall , Inc. , Englewood 
Cliffs, New Jersey. Reproduced with permission, 
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.ILLUSTRATION 9 
THE BINARY TREE* 



inary Trees and Their Traversal s: 

To traverse a nonempty binary tree in preorder : 

1. Visit the root. 

2. Traverse the left subtree in preorder. 

3. Traverse the right subtree in preorder. 

To traverse a nonempty binary tree in in order or symmetric order 

1. Traverse the left subtree in inorder. 

2. Visit the root. 

3. Traverse the right subtree in inorder. 

To traverse a nonempty binary tree in postorder: 

1. Traverse the left subtree in postorder. 

2. Traverse the right subtree in postorder. 

3. Visit the root. 




Preorder: 

Inorder: 

Postorder: 



ABDGCEHIF 
DGBAHEICF 
GDBHIEFCA 




Handout #1 
Page 16 of 16 
data Structures 




Preorder: r.-CEIFJDGHKL 
Inorder: EICFJBGDKHLA 
Postorder: IEJFCGKLHDBA 



•'From Data v ' uctures for Personal Computers by Langsam, Augenstein and 
Tenenbaum, page V 2i copyright (c) 1985 by Prentice-Hal 1 , Inc. , Englewood 
uiiffSj New Jersey. Reproduced with permission. 
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NAME 
PERIOD 



EXERCISES FOR THE STACK 
DATA STRUCTURE* 



Use the operations push, pop; stacktop, 
operations which do each of the following: 



ana empty to construct 



(a) Set i to the second element from the top of the stack s leaving the 
stack without its top two elements. 

(b) Set i to the second element from the top of the stack, leaving the 
stack Unchanged. 

(c) Given an integer n, set i to the nth element from the top of the 
stack, leaving the stack without its top n elements, 

(d) Given an integer n ? set i to the nth element from the top of the 
stack, leav"" < vtaek unchanged. 

(e) Set i to ... dement of the stack, leaving the stack empty. 

(f) Set I to _t; ? ^ment of the stack, leaving the stack empty, 
unchanged. •'• another, auxiliary stack.} 

(g) Set i tr tfc :.:.,!£rit from the bottom of the stack. 



Simulate the ' 
following str^ig^ 



the e\ 'on* thm in this section for each of the 
owing che contents of the stack at each point. 



(?) (a+b }) 
(b) {[a+b] 



C(c-d)] 

(c+d) ~ [f+g] 

(d) my* .{([;i+k])} ) 

(e) (((a)))) 

Like the operation Pop, Stacktop is not defined for an empty stack. The 
result of an illegal attempt to Pop or access an item from an empty 
stack is called Underflow. Underflow can be avoided by ensuring that 
Empty (s) is false before attempting the operation Pop(s) or 



ycac 



What set of conditions are necessary arid sufficient, for a sequence of 
push and pop operations on a single stack (initially empty) to leave 
the stack empty and not to cause underflow? What set ef conditions are 
necessary for such a sequence to leave a non-empty stack unchanged? 



*From Data Structures for Personal Computers by Langsam, Augenstein and 
Tenenbaum, page 117-118; copyright ( c) 1985 by Prentice-Rail , Inc. , 
Englewood Cliffs* New Jersey. Reproduced with permission. 
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NAHE 
DATE 

PEROT' 



QUEUE PROBLEMS 
CASE STUDY* 

Case Study: Simulation of a queue 

Let's now look at an example of using a queue as a circular array. 

For this ease study, the problem is to simulate a single service station 
queue. We want to construct an algorithm which can be used to study what 
happens in the simplified situation where we have one clerk servino people 
who line up as they arrive and wait for service. This is the case in a 
small shop with only one clerk, or in a small post office, etc. In such a 
problem <"e would want to be able to watch the queue grow and shrink; we 
would Wc ,t to know how much of the time the clerk was idle, and we would 
want to have some idea of the average time each customer stayed in the store 
—time spent waiting in the queue plus time getting served. We will want 
to be able to vary the average time between arrivals and the average service 
time and watch the effect these parameters have on the queue. 

This is _ a simplified version of what might be done in an advanced course in 
simulation, and there is a great deal more that could be done; since bur 
real goal is to demonstrate the use of queues, we'll not go into the problem 
any further than this. 

Problem Definition: 

Write an algorithm which will simulate a queueing situation with one queue 
and one server. The average time between arrivals and the average service 
time should be determined by the user. The algorithm should show the user 
how the queue changes during a work period as well as provide some 
statistics on the total idle time of the server, the average queue length, 
the maximum queue length arid the average time each customer is in the store. 

Solution : 

The solution to the problem lies in the use of a queue to hold the customers 
as they wait to be served. We will need to. have a random number generator 
in order to simulate the arrival arid service times. 

A description of the solution: 

Each time a customer arrives* place him or her on the queue. Whenever the 
clerk finishes, serving a customer, perform the necessary calculations for 
that customer, and, if another customer is waiting in line, take that 
customer off the queue and serve him or her. If there are no customers in 
line, adjust the idle time of the clerk appropriately. 
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An algorithm: 

An algorithm for the solution could be written in several ways. One way is 
to use a big loop which loops each time something happens, either a customer 
arrives or leaves. An alternative is a loop which loops once for each of 
some fixed time interval. 



We:]l use driving loop which loops once each minute of the working dav, 
followed b, another loop which will take care of any customers left in the 
queue when the store closes. We assume that the number of minutes in the 
working day is known - a constant - and assume that the User will enter the 
average time between arrivals and the average service time. 

Leaving aside the details of initializing the queue and obtaining the data 
from the user, after some work you might arrive at an Upper level algorithm 
something like: 

loop. once for each minute of the day: 
if a customer arrives 

then put the customer on the queue 
if the service station is not empty 

then subtract I from the service time left 
if the service stacion is empty 

then 

if the queue is not empty 

then process start-service 
else add 1 to idle-time 
loop while there are customers left in the queue: 
subtract 1 from the service time left 
if the service station is empty 
then process start-service 
calculate and display the results 

This is fairly clear except that just what gets done when a customer arrives 
or leaves is not spelled out. It is also not clear what to put on the queue 
when a customer arrives. After thinking about it, you would likely conclude 
that the only thing needing to be put on the queue is the time of arrival. 
And, the average, time the customer is in the queue is essentially the same 
as the average time the customer is in the store except that the latter time 
should be longer by the average service time. In other words, whether we 
capture statistics on the average time in the queue or the average time in 
the store doesn't really matter. 

A lower level algorithm - solving some of these details - might look like: 
START 
initial ize 

print "Enter the average time between arrivals - " 
enter average-arrival -time 
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print "Ent :r the average service time - 1 
enter average-service-time 

loop for time set to 0 thru humber-of-minutes-ih-work-day 
if arrival 
then 

insert(time) 

if queue-length > max-length 

then set max-length to queue-length 
if sc: vice-time-left > 0 

then subtract 1 from service-time-lef^ 
if seryice-time-left = 0 
then 

if not emptyqueue 
then 

set arrival-time to delete 

set number-served to number-served + 1 

set total -waiting-time to total-waifi'ng-time 

+ (time - arrival-time N 
set service-time-left to service-time 
else add 1 to idle-time 
add c leue-length to total -lencth 
if t-;rne mod 15 = 0 then display-queu . 
(end of for loop ) 
set time to nuniber-of-minutes-in-wortc-day 
loop while not emptyqueue 
add 1 to time 

subtract 1 tVorn service-time-left 
if servic time-left = 0 
then 

set arrival-time to dequeue or delete 

set number-served to number-served + 1 

set total -wei ting-time to total -waiting-time 

+ (time - arrival-time) 
set service-time-left to service-time 
add queue- length to total -length 
if time mod 15 = 0 then display-queue 
( end of while loop } 
set average-Lai ting to total-waiting-time/number-served 
set /erage-queue-length to total -length/number-of -minutes- 
in-day 

i>'* frii 4 ;b - average time between arrivals was average-arrival-time 

pM«1t "lr>e average service time was H » average-service-time 

ti-r ■; .v;; I'lfvs total number served was; 11 , i ?.'nber-served 

tr'<lt' !, Ihe average time spent waiting was M , average-waiting 

r nni "The total idle time for the clerk was n > idle-time 

pr; rit ''The maximum queue length was n , max-length 

cKiit ''The average queue length was average-length 

END OF THE ALGORITHM 
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Illustration of Queue: 



Draw an illustration of the queue in the above algorithm. Show an example 
at the beginning of the day, in the middle and at the end of the day. Using 
the recommended textbook, convert the above algorithm into BASIC code 



*Samuel E. Rhoads, Course Guide for Advanced Placement Compu ter 
Scien ce^ Department of Education, State of Hawai : , (1985), pages XIII-4 to 
X 1 1 1 — 7 • 
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EXERCISES FSR THE QUEUE 
DATA STRUCTURE* 

1. What set of conditions is necessary and sufficient for a sequence of 
insert and remove operations on a single empty queue to leave the queue 
empty without causing an underflow? What set of conditions is 
necessary and sufficient for sueh a sequence to leave a nonempty queue 
unchanged? 

2. If an array is not considered circular, it is suggested that each 
remove operation wj.st shirt down every remain: r lement of a queue. 
An alternate method postpone shifting until REAR equals the 
last index of the o.ray. When that sitution occurs and an attempt is 
made to insert :> element into the queue, the entire queue is shifted 
doi", so tha^.thvi first element of the queue is in the first position of 
tjis arra What are the advantages of this method over performing a 
shir l *\zh remove operation? What are the disadvantages? Rewrite 
f He routines re dve, insert and empty using this method. 

3„ Show hw a sequence of insertions arid removals from a queue represented 
ty a i near array can cause an overflow to occur upon an attempt to 
• nsu." t an element into an empty queue. 



*From Ba ta Str uc tures for Pers onal Computers by Langsam, Augenstein arid 

Tenenbaum, page 16?: f copyright (c> 1985 by Prentice-Hall , Inc. Englewood 
Cliffs, New Jersey. Reproducer wltn nerrtiissidri. 
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NAM E _ 

BAT E 

PERffi B~T 

EXERCISES FOR THE LINKED LIST 
DATA STRUCTURE* 

1. Write an algorithm for inserting a new element to a linked list at Lh« 
beginning of it. Illustrate this processing using blocks and arrows. 
Bon t forget the Head Pointer; be sure to label all nodes. 

2. Write an algorithm for irr rting a new element at the end 5* linked 
list. Illustrate this processing using a method similar J : ■ : ?:ve. 

3. Write an algorith ie foil owing: 

a. Concatenate tL s; 

b. Reverse a list. that the last element becomes the first, and so 
on; 

c. Delete the last element from a list; 

d. Delete the nth element from a list; 

e. Insert an element after nth element of a lis 

f. Delete every second element from a list. 

4. Write a BASIC routine to perform one of the above algorithms. 



*Frem Data Structures for Perso nal Computers by Langsam, Augen stein .vd 
lenenbaum, pages 187-18 n copyright [cT 1985 by Prehtice-Hal 1 , Inc., 
Englewood Cliffs, New Jersey. Reproduced with permission. 
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NAM E 

DAT E 

PERIO D 

EXERCISES FOR THE BINARY ~^EE 
DATA STRUCTURE* 

1. Prove that a node of binary tree has at most one parent. 

2. What are the maximum number of nodes at level 'n' in a binary tree? 

3. Write ah algorithm to determine if a binary tree is; 

a) strictly binary; 

b) complete; 

c) almost complete. 

4. Two binary trees are s milar if they are both empty or both nonempty, 
their left subtrees are similar and then right suotrees are similar. 
Write an algorithm that determines if two binary trees are similar. 



*From Jteta-^Strw:tures for Personal Computers by Langsam, Augenstein and 
Tenenbaum, pages 296-297; copyright (c) 1985 by Prentice-Hall, Inc., 
Englewood Cliffs, New .Jersey. Reproduced with permission. 
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QUESTIONS. FOR THE VIDEOTAPE, 
"Database Processing Systems 11 

1; What is meant by Integrated Data Systems? 

2. What are three disadvantages of a file processing system? 

3. What role does the DBMS (Database Ms .agement System) play? 

4. Consider five advantages and disadvantages of database processing; 

5. What data structures are utilized for database data? 

6. How is a subschema different from a schema in viewing database data? 
Give an example of each. 

7. What is meant by overhead aata? How does overhead data affect the 
system hardware and software? 

8. How is the integrity of the database maintained? 

9. What are the responsibilities of the Database Administrator? 
10. What qualifications should a Database Administrator have? 
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SAMPLE ACTIVITY CLUSTER #7 
Computer Ethics and Impact on Snciety 



Topics: 

L Computer Careers 

2. Computer Applications in Var - jus Fields 

3. Computer Misuses and Crime 

4. Unemployment and Depersonalization 

5. Privacy 

£■} jssivu.ti Management: 

Most of the activities will involve the whole class. Reading 
assignments win be done by the individual students. 

Material s: 

Resources for reference or text, such as: 

An Introduction t Computers by Donald D. Spencer, Chapters 7 
and 16; ~~ _ 

Computer Literacy—Problem-Sol ving with Computers by C.E. Horn 

and J, L. Poirot, pages 98-167; 
Computer Literacy - Program ming , Problem Solving, Projects on 

the Apple , by Warren and Bobbie Jones, Kevin Bowyer and 

Mel Ray, Chapter 9; 
Computers Today by Donald H. Sanders, Chapter 19; 
Scholastic Computing—An Introduction to Computers by Jack 

L. Roberts, Unit 5f " 
Spotlight on Computer Literacy by Ellen Richman, Chapter 1?; 
To Copy or Not to Copy: A Moral Dilemma 11 by Tim Barry 

from InfoWord, (September 29, 1986), paces 5-6; 
"Washington Tackles the Software Problem"" by Christopher Kern 

from BYTE , (May 1981), pages 128-138; 
"Copying Software—Crime ir the Classroom?" by Lauren 

Letelli-r from Electronic earning, ( January/Febrjary 1982), 

pages 42-51; 

"Teaching Computer Ethics" uy William J. Kre^jV^ from 
Electronic Learning, (January 1984), pages 5d-S7: 

Current articles from newspapers or magazines rented to computers 
in society; 

Handouts. 



Approximately one to two Weeks 
ler-Praparation and Procedures : 

Select appropriate reading material, such as from the above resources. 
Prepare needed handouts. 
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Ask students to be "on the lookout" for newspaper articles 
relating:. . to. the im^rct of computers oh society and jobs and 
bring t\hi\e in for sharing and posting. 

Invite guest speakers two or three professionals in the 
field of^computing (programmer, systems analyst, database 
administrator, etc.) to discuss job responsibilities, problems 
and reward};. 

Have students contact employment agencies - 9 colleges and 
universities for data on particular computer- related jobs. 
Ask them to investigate job descriptions, the average lary 
and the courses or degrees required, Suggest they make Use of 
the Computer Caree rs-Handboo k, an ARCO Publication, by Connie 
Winkler, found in the vocational department in most large 
1 ibraries^ Also, the Readers 1 Guide to Periodical Literatur e 
and Career Kokua niay prove to be helpful . 

Vllow time for students to share their research findings orally 
and to assemble their data on a bulletin board, along with 
advertisements, articles, want ads or other related resources. 

Computer ethics is a topic that canbe incorporated at any time 
in the semester, not just toward the end of the course, as 
suggested here. An appropriate time would be when an issue 
arises in class over copying commercial software or when the 
tampering of a students private disk has occurred. A class 
discussion of the specific issue or the general topic should 

be conducted. Student responsibility for upholding nigh 

ethical standards in and out of the classroom cannot be 
c /eremphasized. After reviewing in class issues of particular 
news articles related to computers in society, encourage stu- 
dents to discuss the articles with their parents. Following 
these family discussions, have students share their reactions 
to and opinions about the articles. Input from parents, 
teacher and class ean provide a broader perspective on major 
issues. 

The topic of computer ethics can be further expanded with an 
article or two on computer crime. Have students read copies of 
the article(s) arid discuss the basie issues, sueh as: 

a. Reasons why it is difficult to prevent computer crime; 

b. Ways in which computer crime affects the economy; 

c. Possible solutions for or preventative measures against 
computer crime; 

d. Pros and cons of the current copyright laws on software; 

e. Suggestions for a fair and just resolution of the dilemma. 

Assign some reading material from a text or reference with 
further discussion questions. 
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7. Invite a guest speaker from the data processing or computer 
department in a large firm to come and address the issues of 
data privacy arid security and computerized databases; 

8. As an alternative approach to covering the topics, have teams 
of students research one particular topic, such as computer 
fraud or computer victims. Have students use a word processor 
to type up their reports. Then allow time for class 
presentations and discussions of the topics. A list of 
interesting topics related to computers in our society is pro- 
vided in Handout #1 - I he Impact of Computers on Our Society. 
A format for organizing research information and personal reac- 
tions can be found in Handout #2 - Summary Format. 
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Handout #1 
Page 1 of 2 

Computer Ethics and Impact 



NAME- 
DATE— 
PERIOD 



THE IMPACT OF COMPUTERS ON OUR SOCIETY 

Look over the following topics and subtopics related to computers and choose 
ONE of the subtopics that your team will develop tor presentation to the 
class. 

I. ROBOTICS AND AUTOMATION 

A. Artificial Intel 1 igence— what is it? Can it be created? 

B. Robotics in the work force— how have robots affected manufac- 
turing? Usr problems and advantages to us. 

C What kinds of jobs will computers replace? What are the problems 
and advantages to the people they replace? 

II. DATA BANKS 

A. What are data banks? What are they used for? How are they 
created? How is the information in them retrieved? 

B. What are our rights to privacy? How can we protect ourselves 
from wrong information in our files? Who has access to 
information on us? Where are these data banks located? 

C. What are some of the abuses that have occurred with data banks? 
What are some of the advantages of data banks? 

III. COMPUTERS, IN FINANCIAL INSTITUTIONS 

A. How do banks use computers? Why do they need them? 

B. What is Electronic Funds Transfer arid how does it work? at are 
the advantages of its use? Disadvantages? 

C. What are some of the dangers that occur with the use of computers 
in banks? How can these dangers be minimized? 

IV. CRIME AND LAW ENFORCEMENT 

A. Wbn is a hacker? Who are hackers? What are some of the things 
that hackers have done? How are they found? 

B. What kinds of crimes can be committed by computers? flow can they 
be prevented? How can they be detected? 

6. What arc some of the ways in which computers are us2d in la.; 
enforcement? 

V- COMPUTERS IN ENTERTAINMENT 

A. Video games—do they have any useful purpose besides entertain- 
ment? Are they dangerous or harmful? What are some of the 
latest developments in this field? 

B. How do movies use computers to create special effects? 
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Computer Ethics and Impact 

- vTERS IN EDUCATION 
A. What. is Computer Assisted Instruction (CAI)? How can the schools 

jse GAlto improve learning ana teaching? 
E. rldw will computers change the way education is taught? Will we 

need schools at all? 

COMPUTERS IN BUSINESS 

A. How are computers used in sales? What do point-of-sales 
terminals do in a store? How do they help management? 

B. What is word processing? How can it be used in today's office? 
What are the advantages? Disadvantages? Will it eliminate many 
clerical /secret? rial jobs? 

C. How are computers used in accounting? What is accounting? How 
can computers help with budgeting? 

COMPUTERS AND SECURITY 

A. How are computers used as home security systems? How do they 
work? How much do they cost? Where can they be found? Are they 
really effective? 

B. Government spying (espionage)--why do other governments want to 
£ teal our technology? How are they doing it? 

C. How are computers used by the military? Are strategic simula- 
tions really accurate? How are computers used in satellite 
communications? Armaments? Star Wars? 

THE COMPUTER AS AN AID TO MAN 

A. Computers in medicine--what are the different ways in which 
computers help patients and doctors? Will they ever replace 
doctors. _ 

B. Electronic mail. arid bullentin boards— what are thev? How do they 
work? Who will use them? Are they any good? What impact will 
they have on our postal service? 

C. Computer-Aided Design (CAD) --how do architects and engineers use 
computers in their work? 
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"-•-•clout #2 
i 1 of 2 
' puter Ethics arid Impact 

■NAME 

DAT E 
PERltB 



SUMMARY FORMAT 



Author's Name: 

T i 1 1 e of Art i cle: 
Name of Magazine/Book: 
Date/Copyright Year :_ 



Volume and/or Page number: 



INTRODUCTION: (Main Ideas.) 



BODY: 
1) 



2) 



3) 



4) 



5) 



CONCLUSION: Refer to the suggestions on the next page. 
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Handout #2 
Page 2 of 2 

Computer Ethics and Impact 
POSSIBLE SENTENCE STARTERS FOR CONCLUSION 

I feel that. ..... .because 

I think that. .... .because. . 

The main advantage of ....... is. . 

The main disadvantage of . . . *is. . . . . . 

We should. ...... 

I bel ieve that. ...... 

Computers are. ...... 

From the artiele, I....... 

In my opinion. ...... 

I hope. ...... 

I agree with the article because....... 

I disagree with the article because....... 

Probably in the future....... 

Wouldn't it be terrific ?f....... 

We shouldn 't. .... . .because. ...... 

Our society will....... 

Computers have tremendous impact on our society because 

Computers wi 1 1 not have any impact on our society because 
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TAXONOMY OF GOALS., OBJECTIVES ,,NO STUDENT EXPECTATIONS 
For Computer Science 



I- The student will demonstrate competence in using computer?; 

L The student wi use the computer as a tool for problem solving 
and decision making. 

The student will recognize the impact of computers in daily 
1 1 f e . 

4. The student will investigate educational arid career opportunities 
in computer-related professions. 



GOAL 1, 

1.. The student will demonstrate competence in Using Quzer* 

i.io Interacts vnth prepackaged computer progiums. 

l-A~Ai The student selects and uses appropriate . resources 

(manuals, program* peripherals, etc.) for performing a 
task. 

1.1.2. The studer adapts programs to solve specific problems. 

The student evaluates and compares computer programs 
^ P repackaged \ and sti ent's own). 

1.2- Processes information according to a set of predefined 
computer rules: organized, coded, given leaning and 
transmitted. 

1.2.1. The student demonstra ; s through a project the processing 
of information. 

1,2„2. The student implements routines tc process information 
through searching, sorting, deleting, updating, 
si: larizing, storing, etc. 

1.2,3; :e student explains the major parts and functions of a 
computer system (e.g. , CPU - registers, accumulators; 
memory - addressing: peripherals - cylinders, tracks , 
sectors) . 

1.3. Develops good -programming style in a higher level language 
such as Pascal. §ood programing style includes logical 
structures documentation (readability), efficiency, elegance. 

1.3.1. The student demonstrates the ability to clearly define 
problems and to subdivide a particular problem into logical 
subproblems* 
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iiSi2i The students designs structured solutions to problems - 
algorithms - by applying the principles of top-down design 
methodology 

±;3;3; W6 ^iw'e: . c properly implements the available cont. ol 
stp.'Cuiji - sequence, interation and branching - whe;i 
ceding algorithms into a specific high-level language. 

i.3.4* The stWdent designs and uses numeric and string arrays a he 
matrices. 

1;3; 5„ The studeit demonstrates the ability to anticipate, 
identify, isolate and correct errors ;. 

1.3.6; The student enhances the readability and clarity of his 01 
her program by including appropriate documentation. 

GOAL 2. 

2. The student will use the computer as a tool Vr problem solving 
and drcision making. 

2.1. Selects and uses appreciate de 1 structures to so 1 ve 
problems. 

2.1.1. The student describes the major types of dats structures 
available to the high-level languac being studied and 
understands their uses and 1 imi tation c 

2.1.2. The .student recognizes. end ^rittely utilizes 
eleliienta.ry data structures in sol v . ams. 

2.2. Creates and implements algdrithmL co solve problems. 

2.2.1. The student recognizes and appropr-* .ely u t i 1 izes 
elementary algorithms in solving protlems. 

2.2.2. The student designs and implements his or her own 
algorithms in solving so;ne types of programming problems. 

2,3a Uses a computation/ information system (computer, or computer 
system) to solve challenging problems and make decisions. ■ 

2.3.1. The student creates and utilizes sec ntial data files for 
file-processing programs. 

2.3.2. The student creates and utilizes random data fil^s for 
file— process i ^ programs* 

2.3.3. The students easily uses mathematical and string 
manipulation functions specific to the high-level language 
being studied. 

2.3.4. The student designs a variety of graphics programs. 

* 1*4 
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2.3.5. The stud--, experiences wording as a teac- c a programming 
environ vt vhich simulates the actual field where each 
team is responsible for developing one nioaule in a larger 

2-4. Uses the computer for Information storage and rstrie. -si ; 
simulation and modelling* quaii:;' or n^oeess control and 
decision making, computation* data processing, 

2.4.1, The student recognizes and uses computer application tools. 

2.4.2. The student values efficient information processing; 



GOAL ^ 

3; P ^ uudent will recognize the impact of computers in daily life. 

3. iw ^cognizes ethical and soda 1 inipl f cati oris of computer use. 

3; hi; The student identifies computer applications in business, 
industry, scientific research, medicine. government, 
education, health and social services, recreation, creative 
arts, etc. 

3.1.2, The student appreciates the economic benefits of computeri- 
zation for society. 

3.1.3, The student understands to l. L c;; r iiputer- can be used to 
effect distribution and u^. of eccr -lie and political 

power, and used in crimiria* a;»r! /Lfier anti-social 

activities that affect society ir u>: >: si rsble ways. 

3.2. Demonstrates responsible use of computer systems. 

3.2. h The student accepts responsibility for following school and 
lab rules pertaining to computer ethics. 



GOAL 4^ 

4. The student will investiga ;c educational and career opportunities 
in computer-rel ated ppjfe-v ;.-ns. 

4.1. Recognizes careers involving computer 0 and the impact these 
careers have on society and the educati .rial system. 

4.1.1. The student identifies careers that involve computers 
directly (support, service, technical and scientific 
careers, data management, programming analysis, etc.) 

4.1.2. The student compares educational requirements and 
opportunities for careers that involve computers. 
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SIGN-UP FOR COMPUTER TIME DURING WEEK- 



TIME MOW-AY 


TUESDAY 


WEDNESDAY 


THURSDAY 


FRIDAY 


1. 


1 . 


1. 


h 


i. 


2. 


2. 


£. 


2. 


2.-. 


3. - 


3. 


3. 


3. 


3. 


A 

4 , - 


4. 


4. 


4. 


4. 


1 


r 


i; 


c . 


5. 


1. 


1. 


1. 


1. 


" _ 




2. 


2. 


<L. 


2. 


3. 


3. 


3. 


3. 


3. 


4. 


4. 


n. 


4. 


4. 


5. 


5.-- 




5. 


5. 




i; 


i. 


i. 


i ; 


- * 


2.- 


2, 




2; 


3. 


3. 


3. 


3. 


3. 


4. 


4. 


4. 


4. ~ 


4. 


5 -„ _ 


5. 


j . 


5. 


5. 


. _ 

1. 




1. 




- . 




1 , 


1. 


2. 


2. 




2. 


2. 


3. 






3. 


3. ~ 


4. 


4. 




4. 


4. 


5. ' 


5. 


— b „ 


5. 


5. 


_ 

1 • 




1. 




- 1. 


• _ 


— — 

i. 




2. 




2, 


2. 


3. 

- ■ 


3. 


— 3. ~ 


3. 


3. 




4. 


4. 


4, 


4. 


i „ . 


5 ~ "" 


5. "" 


5. 


5. 


, 

1. 




1. 




h 




1. 




1 # 


z. 


2. 


P; 


2. 


1- • 


3. 


3. 


3. 


3. 


3. 


$ 




4. 


4. 


4. 


5. 


5. 


b. 


5 


5. 


1. 


i 

JL . 




i. 


i. 


2. 


2. 


i. 


2. 


2. 




3. 


3. 


3. 


3. 


<L 


4. 


4. ■ 


4. 


4. 


5. 


5. 


r 


5. 


5.-- 
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NAM,; 

BATE_ 
PERIOD 

PRBSIiAM 

G RAD IN" SHEET 



te due; 
cic. _ received : 
extra points: 



flowchart: point?; for program 

plus extra points : 

documentation : 

FINAL SCORE: 

translation to BASIC: 



output validation: 



other: 



COMMEi. 
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A Motivation Technique i n 
Computer Programming* 



Theodo; : 
Falls, New 
motivating 
establ ishes 
employed as 
work, raeh 
Using cur : 
position and 



Kos a high school compute science teacher in. Little 
der recommends a technique he finds conducive to 

stude; to excel in his computer programming classes. He 
a fict ous software ccjipany where each student is to be 

a Junic Programmer, Based upon the merit of his or. her 

studen ;an earn a promotion to a more responsible position, 
nt classified ads, he determines the salaries for each 
creates a chart such as the one below. 



Position 


Employee 


Salary 


infer ation Systems 






. .. Bi rector 




75,000 


Programming Mgr. 




$60,000 


Project Leader 




$62,000 


Systems . Programmer 




$47,000 


Senior Analyst 




$43,000 


Systems Ana 1 : si 




$33,000 


Programmer 




$25,000 


Junior Programmer 




$20,000 



Programming 

Instructor $1 ■ °: } /hr. 

Lach position has a pi' ;u:;/iar number of slots. After eacn 
assignment is graded, a new privation ch~,t, based upon these marks, is 
posted cn the bulletin _b^ar M » showing each student's name in the 
appropriate position Mr. Krsko allows the authors of the seven bes- 
orocranis for the first assiyii.:!ent to move Up to Programmer. The hav* 
promotion allows d maximum of ::x tc move up_tp Systems Analyst, le 
room for six more people to davarico from * Junior Programme? to 
Programmer. The following round advances five to Senior Analyst, then 
four to Systc 3 Programmer, then three to Project Leader, then two to 
Programming Manager, and finally one to Information Systems Director! 

Test or quiz results, class participation and homework quality are 
used to break ties in assignment erades. Students advance only on the 
basis of quality work, and only a limited number of higher positions are 
available - just like in the real business world, 

Mr. Kosko has found students eager to work, harder so they can 

advance in position. All students' work improves with this system, as 
t K iy become more conscmus of structured methodology, program 
readability, good documer ation a j accurate output. And curiosity 
about, the responsibilities of each job position encourages students to 
seek more information concerning computer careers. Good working 
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relations with others is emphasized so that a healthy arid full 
competition develops within the class that promotes continued 
cooperation as well among the students. 



* n How To Motivate Your Computer Programming Classes ," Theodore 
kusko, The Computing Teacher ^ February, 1985, page 33, 

lis 
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ASCII CHARACTER CODES 



The Apple II series computers store each character as a numeric 
code using the American Standard Code for lt\ fortriatibh Interchange 
(ASCII ). Codes 32-127 are the ASCII cJde numbers that ar Jsed for 
characters. (Codes 0-?l, used for various control functions are hot 
shown here a ) 

To display the code mv ^ for a character, use the ASC function, 
To display the chc icier :.ir- ?> responds to a code number 5 Use the CHR$ 
function. 



Examples: P; -'N' v( i] R") PRINT CHR$(82) 

82 R 



ASEf: 


Ph p> i"? rfpr 


iSf T T 


Ph A V A f~ "t" CJ 1" 


/KpT T 


Oil a re C Le" 


a c r r T 


Chara 


fnrlp 

lUUc 




PnHo 




uode 




loae 










o 


PR 


p 

r 




n 


T 


j 


«j / 




O 1 


n 
U 




i 


34 


II 


58 




82 


R 


106 


i 


35 


U 

rr 


59 




83 


S 


107 


k 


36 


$ 


60 




84 


T 


108 


i 


37 


c/ 
£> 


51 




85 


U 


109 


m 


35 


a 


62 




86 


V 


110 


n 


0 O 


> 


63 


? 


87 


w 


ill 


0 


40 


( 


54 




88 


X 


112 


P 


41 


\ 

; 


65 


A 


87 


Y 


113 


g 


42 




66 


b 


90 


z 


114 




43 




5'. 


C 


91 


[ 


115 


S 


44 


5 


68 




S2 


116 


i 


45 




69 




93 


] 


117 


u 


46 




7Q 




94 




118 


V 


47 


I 


— i 


G 


95 




119 


w 


43 


0 


72 


M 


36 




120 


X 


49 


1 

X 


73 


i 


97 


a 


121 


y 


50 


2 


74 


U 


98 


b 


122 


z 


51 


3 


75 


K 


99 


c 


123 




52 


4 


76 


L 


100 


r 


124 




53 


5 


77 


M 


101 


e 


125 




54 


6 


78 


N 


102 


f 


126 




55 


7 


79 


0 


103 


g 


127 





;ter 



he following ASCII codes represent characters that either are 
(.'■'' <lt to see with some monitors or printers or else are not visible 
chc ters at all: 32 (space); 39 (apostrophe); 44 (comma); 45 
(I en); 46 (period); 94 (caret); 95 (underscore); 96 (grave accent); 
126 (tilde); 127 (deletion symbol). 
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RESOURCE 



RECOMMENDED TEXTB90KS 



(Listed within parentheses are schools who have used or are currently 
Using the textbook.; 

A Guide to Programming in Applesoft . Presley. Von Nostrand Reim.ud 
Company. 1 984. 

Advanced Structured BAS IC. Clark and baBarre. South-Western Publishing 
Company. 1985. 



Ap ple BASIC . Haskel 1 . Prentice-Hal 1 . 1982. 

Apple Files in BASIC . Miller. R ton Publishing Company. 1982. 

BASIC - A First Course . Thompson. Charles E. Merrill. 1981. 

BASIC - A Structured Approach . Kittner and Northcutt. Benjamin/ 
Cummings. 1985. 

Basic BASIC Programme nc. Peluso, Bauer and DeBruzzi . Ad. son-Wesley. 
198K ~ 



BASIC For Students: With Applications . Trbrr.be tta . Add i son-Wesl ey 
1981. 

BASIC Programming for the Classroom Teacher , Miller, Chaya and Santera 
teachers College Press. 1 982. 

BASIC Programming Using Structured Modules . Barron. CBS Publishing. 

Computer Fundamentals with BASIC Programming. Mandel 1 and Mar. del 1 . 
West Publishing Company. 1985. 

^ompute^ -Programming in BASIC. Myers, Elswick, Hopfensperger and 
Pavlovicho Houghton Mifflin. 1986. 

Computer Pr ogra mm ing in the BASIC Language . Colder,. HarcoUrt Brace 
Jovanovi r . ISLj. 

(Schools: Farr"; ngturi , Kaiser, MoaricuUd> iNaridkUli* Roosevelt^ 
Waipahu) 

Computers and £ata- -Process i ng - ^o> icepts -and Applicatic w ith B ^SIC. 
Mandel 1 . West Pub! ish 1 n g Company 7 1 982 . 

Data rile Programming i ; BASIC - A Solf-Teachinp Guide . Finkel arid 
Bro.ru 3bhn Wiley and sons, Inc. T^T. 1 

Dat^ Pr o cessing -An Intrpduc with BASIC . Spencer. 
Cnar!es~T;. Merrill Publishing ... jany. 1982. 
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Data S tructures for Personal Computers . bang: cm, Augenstein and 
Teneiib iulri. Preritice-Hal 1 , Inc. 1585; 

Fundamentals of, BASIC, Programming - A Structured Approach, Mandell and 
Mandell. West Publishing Company. 1985. 

Introduction to P.* SIC ,;; amming. She! 1 . and Eashmari; Anaheim 
Publ ish- ing ( - _ . . y , [9ST. 
'Schools: Mckinlc- r; Kailua) 

Introduction to Programming in Basi l le II/IIe/IIc. Bitter. 

Random House Coursw^e. 1985. ~ ~" 

More TRS-80 B AS I C: A Self-Teaching Zamora and Albrecht. 

John Wiley & Sons, Inc. 1981. 
(Schools: Moanal ua) 

Pract icing- Programme n on the Apple II/IIe. Marrapodi, Budin and 
Guzman. Random House, Inc. 1984. 

Practicing Programming on the TRS-80. Marrapodi , Budin and Guzman. 
Random House, Inc. 1984. 

Problem Solving and Structured Programming in BAS IC. Koffnidh and 
Friedman. Addison-Wesley. 1979. ^ 

Problem Solving with BASIC . Dillman. Holt, Rinehart and Winston. 

Programming in Apple BASIC . Die * si , Grossman and Tucciarone. CBS 
College Publishing. 1984, 

Programming in BASIC. Curm . ,.s and Kuecr in. Charles Merrill 
Publishing Company. 1983. 

(Schools: Pearl City, iiaia'u? 

Programming in BASIC . McRitchie. Molt, Rinehart and Winston. 1982. 
(Schools: Farrington, Kalar.i , Waipahu) 

Structured BAS IC. Clark and Drum. Southwestern Publishing Company. 

(Schools:. Kaimtiki ) 

The Basics of BASIC . Gomez. Holt, Rinehart ?nd Winston. 1983. 

The Mind Tool . Graham; West Pub! isr.ing Company. 1983. 
(Schools: Kaiier) 

Using Computers . El garten, Posamentier and Moresh. P'di son-Wesley. 
1984. " 

(Schools: Castle, Waianae) 
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RECOMMENDED TEACHING AIDS AND REFERENCES 
(TUTORIALS, /4C t t V I TY SHEETS , WORKBOOKS) 



GENERA . (Applicable y :v mos ' uAcrozQiv.puters ) 

t_ ' : . S- i WORKBOOKS AND i~. -EMNCE BO r i(S) . 

BASIC Discoveries - . Ma lane & Johnson, Creative Publications. 
1982, 

Dupli cat i ng Masters - Exper'-jicing BASIC. Mul cahy. Media 
Materials, Inc. 1984^ 

Everybody's BASI C . Richardson. Meka Publishing Company. 
1983. 

Experiencing BASIC - T a sk Cards . Mulcahy. nedia Materials, Inc. 
1984.' 

Ill y BASIC Exercises. Lamoi tier Sybex. 1980. 

Graphics Discoveries, Boole I n-.u U . Jc : nson. Creative 
Publications 1984. 

Hands-On BASIC. Peckham. McGraw-Hill Publishing Company. 1984. 
(specify computer) 

Hoy; to Bui ld a Program. Enmerichs. : • » thium P ; ess. 1983. 

Mi cros 1-10 . Ruby and Roberts. -:h ,J <^:.on Walsh. 1984. 

Problems for Computer Sol ution . Roc - v - , Creative computing 
Press. 1979; 

Problems for Comp ut er Solutions Using BAS r. . Walks; Winthrop 
Publishers, Inc/T?M7 

Pr oblems Solv ing with the Computer . Henley & Ren ley. Media 
Macerials Ine? 19H3; 



Problems for BASIO^Di scoveries . Johnson & Ma lone. Creative 
Fubl icaeionsi 1984. 

Structured Desi gne d Programming . MECC. 1984. 

Teaching_BASIC: _ .Thirty Lesson Plan t, Activities and Quizzes - 
Volume II, TRS-80 Models III, IV. Tx\ ckson & Vonk. Learning 
Publications, Inc; 1983. 

The BAS Workbook . Schoman. Ray den. 1977. 
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GENERAL 
SOFTWARE 

Global Program Line Editor: Beagle Brother 
Practicing Programming; RV:dom House 
Visible Bubble Sort; Softdisk Magazine 

OTHER CLASSROOM AIBS 

MECC Computer Parts Kit; MECC. 

Quick Reference Guide {specify the computer); John Wiley S Sons. 

The BASIC Conversions Hanc. ok for Apple, TRS-80 and PET Users. 
B ra i n, et. t'l . Hayden. 19821 " 
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APPLE 



BOOKS (WORKBOOK AND REFERENCE BOOKS) 

A Guide to Programming in Applesoft 
Re i nho Id Company. i§84 . 



Apple Basic: Data File 
Pub! ications. ' i 0 ft c 



Presley; Von Nostrand 
ramming , Finkel & Brown. Creative 
e ii; Parker and Stewart, 



Apple BASIC for r jsihess - for the ,, K 
Reston Publ i shin j Company , inc. I95l : 

Apple Graphics Activities Handbook . Creative Publications. 1984, 

Cookbook for the Apple , Wadsworth. Hay den. 

)iscoveries Books I and II, Johnson. Creative 



Pub I ications. 




Pract icing -Programming on the Apple 11/ He . Marrapodi, Budin, 
Guzman. Random Hcm s. Inc. 1984. 

D ^ ^agr amming S pecial Proje cts. MECC. 1984. 



Spot! • 



ic -fnr the Apple II/IIe/IIc . ieist and Hohman. 



Random House, Inc. «985 
Jfaa Apple Pr ogram Factory . Stewart. McGraw Hill 



1985. 



dbook . Lien. Compusoft Publishing, 1985 
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BASIC Tutor Series: Advanced Topics; Educational Courseware 

BASIC Tutor Series: erecting Music and Sounds; Educational 
Courseware 

BASIC Tutor Series: Graphics Commands; Educational Courseware 

BASIC Tutor Series: Shapes and Pictures; Educational Courseware 

BASIC Tutor Series: Text File Commands; Educational Courseware 

BASIC Tutor Series: Set; Educational Courseware 

Computer Graphics; Innovative Programming Associates 

Hands on BASIC Programming; Peachtree Software, Inc. 

Hi -Res Secrets Graphics Applications Systems; Avant-Garde 

How to Program in Applesoft Basic; Hayden Software 

Let's Explore BASIC; Media Materials, Inc. 

Programming Animation & Graphics for the Apple; Media Materials, 
inc. 

Scott, Foresman Computer Literacy Courseware Series; Scott, 
Foresman and Company 

The Basics of BASIC; Foeus Media 

Visible Bubble Sort Program; Softdisk Magazine, P. 0. Box 30008 
Shreveport , LA 71130-0008; (Program written by Thomas G. Pink) 
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IBM PC 

BOOKS (WORKBOOKS AND REFERENCE BOOKS) 

BASIC Exercises for the IBM-PC. Lamoitier. Sybex. 1982. 

Graphics Programming on the II- Personal Computer. Vol kstorf . 
Prentice-Hal i, Inc. 1984. 

Hands-On BASIC for the IBM-PC. Peckham. McGraw-Hill Book 
Company. 1983. 

Programming Special Proj ects . MECC. 1984. 

Programming the IBM Personal Computer: BASIC . Graham. 
Holt, Rinehart and Winston. 1982. 

SOFTWARE 

Beyond Basic BASIC; Personally Developed Software 
The Basics of BASIC; Focus Media 



199 194 



TRS-80 



BOOKS (WORKBOOKS AND REFFRENCE BOOKS) 

A Guide to Programming in Level II BASIC-TRS-80 ; Presley; 
Von Nostrand Reinhold Company. 1982. 

Advanced BASIC . Radio Shack. 1982. 

BASIC Disk I/O Faster & Better. Rosenfelder. I.J.G- 1982. 



Structured Program Design witb\TRS-80 BASIC . Dwyer S C' itchf ield. 
McSraw Hill Book Company. 1984. 



TRS-80 Graphics . Grille) S Robertson. William C. Bfcwr, Ccmpany. 
1981. 

TRS-80 bevel II BASIC . Albrecht, Inman , & Zamora. Jo " ; 1 ey & 
Sons, Ine. 1980. 




Barden. Radic Si a:k. 1982. 
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RECOMMENDED PERIODICALS 



GENERAL 



BYTE ; 70 Main Street, Peterborough, NH 03458 

Classroom Computer Learning ; 561 5 W. Cermak Road, Cicerc , IL. , 60650 

Education Computer News ; 1300 N. 17th Street, Arlington VA 22209 

Ele ctronic Learning; Scholastic Inc., P.O. Box 645, Lyndhurst, NO 
07071 -9PS6 

InfoWcrid ; P.O. Box 1019, Southeastern, PA 19398-9981 

Personal Computing ; P.O. Box 2941, Boulder, Co. 80321 

Teaching and Computers; Scholastic Inc., P.O. Box 645, Lyndhurst, Nd 
07071-9986 

T , H. E. Journal ; P.O. Box 15126, Santa Ana, CA 9/705-0126 

The Computing Teacher; University of Oregon, 1787 Agate Street, Eugene 
OR 97403-1925 



A+; P.O. Box 2964, Boulder, CO 80321 

Apple Education News ; 20525 Mariani Avenue, Cupertino, CA 95014 
Incider; P.O. Box 911, Farmingdale, NY 11737 
Nibble; P.O. Box 325, Lincoln, MA 61773 
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PERIODICALS FOR IB M PC 

PC - The Independent Guide ; 1 Park Avenue - 4th Floor, New York, NY 
10016 



PC WEEK ; 1 Park Avenue - 4th Floor, New York, NY 10016 ' 
PC WORLD; P.O. Box 6700, Bergenfield, NJ 07621 



PER 101) I C ALS FOR TRS-8Q COMPUTER 
80 Micro; CM Communications, 80 Pine Street, Peterborough, NH 03458 
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AUDIOVISUAL SERVICES 
641 18th Avenue 
Honolulu, HI 96816 



Ph: 732-2824 



16mm Films 



7705 AND WHAT OF THE rUTURE? 

Films Incorporated, 1981 
40 .Sin; j J-H* 

Wi 1 1 the recent developments i n el ectron i c mi ^roci rcu i cry 
result in a better or worse "life for the average person? 
Will people lose jobs once tnought secure? .Will the 
technology be used tc replace people on monotonous or 
dangerous jobs? Visits to the Washington D.C. Metro 
(subway]; a Dallas supermarket, and a Scottish hospital 
illustrate the benefits and problems. 

7724 THE COMPUTER AND YOU - AN INTRODUCTION 

Handel Film Corporation, 1983 
16 min. ; E-J 

A primer for computer operations designed for audiences who 
have no prior knowledge in this field. The computer terms 
come to life by watching a student developing a program 
about the states ^n the USA and the provinces of Canada. 

6702 COMPUTER COLOR GENERATIONS 

United States Department of Energy, 1972 

23 min.; J-H C 

Discusses new techniques in computer technology which 
virtually eliminate the extra cost of color in computer 
displays. Includes research on thermonuclear problems, 
lasers, engineering and three dimensional problems. 

6703 COMPUTER FLUID DYNAMICS 

United States Department of Energy, 1969 

24 min.; J-H C 

Demonstrates the power of today's giant electronic 
computers for solving problems that previously were 
impractical to undertake. Presents a wide. range. of fluid 
flow problems, shows several examples of fluid flow 
calculations, and describes how computer calculations are 
accompl ished. 

7940 COMPUTER: TOOL FOR THE FUTURE 

National Geographic, 1984 
23 min. ; d-H T 

The film begins with the human need to compute, surveying 
several computing devices that preceded the chip and 
focusing on significant computer appl i cations. Computer 
careers are considered—everything from the .military to. 
music. This film stresses the importance of computers in 
our modern society. 
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7682 COMPUTERS AND. THE. FUTURE 

Time-Life Media, 1982 

30 min. ; J-H . . . 

Combining documentary techniques with, vignettes . the film 
e <pl as our growing relationship with. communications 
technologies such as interactive computers * cable 
television and video discs. The program explores the 
effect of this hew media form on the way we live, work and 
play. Futurclogist Peter Schwartz is host- 

7798 COMPUTERS: THE FRIENDLY. INVASION 

Walt Disney Educational Media Company, 1982 
20 mm. ; E-H . 

Computer graphics and scenes from the D snoy feature "Tron 11 
illustrate some computer applications ii an entertaining 
film that introduces students to a future resource. They 
are introduced to how computers work, the many tasks they 
can perform, and the opportunities they offer in science 
and the arts. 

7668 COMPUTERS: TOOLS FOR PEOPLE 

Churchill Films, 1983 
22 min.; E-H T 

Shows how computers are used in many ways: for file 
management; control of other machines; support of creative 
work; and for mathematical tasks including modeling. 
Demonstrates how applications are developed through 
research, flowcharting, programming and debugging. 
Emphasizes the human responsibility for computer 
performance and che excitement of people creating their own 
tool 5 . 

7922 DON'T BOTHER ME, I'M LEARNING: 

ADVENTURES IN COMPUTER EDUCATION: 

MGHT, 1981 

24 min. ; E-H T 

This motivating film demonstrates uses of a computer in a 
classroom. Teachers, parents and students all eagerly 
discuss the vast uses of the computer. 

7473 MIND MACHINES, THE PARTS I & II 

Time-Life Media, i9"9 
57 min. ; H C 

The controversy surrounding artificial intelligence is 
examined. Computer fundamentals are .explained and compared 
to human intelligence. Limitation of computers to memory 
and calculations functions are used to argue the nature of 
human intelligence which includes judgement, common sense, 
etc. 

7707 NOW THE CHIPS ARE SOWN, PARTS I & II 

Films Incorporated, 1981 
50 min.; J-H CAT 

Microprocessors smaller than a postage stamp have the power 
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of room-sized computers of a generation ago. We hear a 
machine that can read aloud; see a driverless tractor and 
a warehouse that needs no staff among the samples of the 
wonders created by cheap computer power. We also learn how 
microcomputers are made, and hear predictions of the 
future changes. 

7929 ROBOT REVOLUTION, THE 

EBEC, 1984 
19 min.; J-H C 

This probing look at robots—their capabilities and their 
1 imi tations--explores their potential for improving the 
quality of life and their threat to the labor force as they 
enter the workplace. Shows the effects of using computers 
and robots in medicine, research, business and industry. 

7591 ROBOTS - INTELLIGENT MACHINES SERVING MANKIND 

Pacific Resources, Inc., 1981 
14 min.i J-H 

The film presents a report of an army of "intelligent 
machines" taking over more and more jobs that wer^ 
previously performed by workers. Benefits derived by this 
major revolution in computer technology are: safer working 
conditions, high quality products and more efficient use of 
resources. This report includes robots with limited touch, 
sight and judgement - first steps in the mechanical 
evol ution. 

6858 TIG - I' BEX TO ENERGY 

United States Department of Energy, 1977 

6 min. ; H 6 A _ 

Describes the Technical Information Center (TIC) of the 
Department of Energy at Oak Ridge, Tennessee. The 
computerized facility gathers, abstracts and catalogues 
technical reports and published scientific papers from 
sources around the world. This material is evaluated and 
part of it becomes a permanent part of the data bank of 
technical and scientific energy information. 



7901 WELCOME TO THE FUTURE: COMPUTERS IN THE CLASSROOM: 

FI, 1982 
28 min.; C T 

In plain language, this film introduces teachers to 
computer literacy: programming languages, software and the 
variety of ways computers can be used in schools, such as 
computer assisted instruction. This film helps demystify 
computers and shows how teachers arid students can become 
friends with a machine. 



*Codes for grade or ability levels are: 

E = elementary; J = junior high; H = high school; C = college; 
ft = adult; T = teacher. 
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TECHNICAL ASSISTANCE CENTER 
3645 Waia'lae Avenue, Room B-6 
Honolulu, Hi 96816 



Ptl: 735-2825 



Videotapes 



R199-1 BEYOND THE PROGRAM 

Great Plains National , 1980 

20 mills., Color (Business Computing. . .Cut Down to Size); A* 
Outlines elements of data reliability and accuracy and 
stresses the need for safeguards. LOAN ONLY. NOT FOR CATV 
USE. NOT AVAILABLE TO PUBLIC LIBRARIES. 

R197-1 COMMUNICATING WITH YOUR COMPUTER 

Great Plains National, 1980 

27 min. , Color (Business Computing. . .Cut Down to Size); A 
Introduces and compares elements of programming languages. 
LOAN ONLY. NOT FOR CATV USE. NOT AVAILABLE TO PUBLIC 
LIBRARIES. 

0890-1 COMPUTER COLOR GENERATIONS 

ERDA, 1972 

23 mins.. Color; J-H C 

Discusses new technique;: in computer technology which 
virtually eliminates the extra cost of color in computer 
displays^ Incl udes research on thermonuclear problems , 
laser, engineering and three dimensional problems. 

0911-1 COMPUTER FLUID DYNAMICS 

ERDA, 1969 

24 mins., Color; J-H C 

Demonstrates the power of today^s giant electronic 
computers for solving problems that previously were 
impractical to undertake, presents the wide range of fluid 
flow calculations and describes how computer calculations 
are accomplished. 

0815-2 COMPUTER FRIEND 

WPBT Public Television, 1976 

30 mins. , Color (Que Pasa, USA?); H A 

Carmen fills out an application for a computer program that 
matches up people of similar- interests and family 
backgrounds. Spanish/English program. 

1768-1 COMPUTER SHOW #1, THE 

Oceanic Cablevision, Inc., 1984 

27 min., Color (The Computer Show); J-H A 

In a magazine format: computer applications in the travel 

industry; tutorial on the components functions and 

operation of a microcomputer: care and maintenance of 

computers; introduction to programming in Logo. 
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COMPUTER SRSW #2, THE_ 

Oceanic Cablevisibri Inc. , 1984 

30 min; s Color _(Tho Computer Show);. J-H A_. 

Continuation of show. #1 with emphasis bri the care and 

maintenance of computers * use of word processors and 

printers. 

COMPUTER SHOW #3, THE. 

Oceanic Cablevision : Inc. , 1984 

30 min,, Color (The Computer Show); J -HA 

David Kobashigawa of Radio Shack demonstrates the use of a 

computer spreadsheet. The film defines some computer 

languages, gives computer care tips and describes various 

types of printer paper. 

COMPUTER SHOW #4, THE 

Oceanic Cablevision , Inc. , 1984 

30 min. , Color (The Computer Show); J-H A 

Demonstrates computer programming in BASIC and explains 

some of its terms. Describes what computers can do and how 

they wot k. Explores the serious problem of software piracy 



COMPUTER. SHOW #5, THE 

Oceanic Cablevision, Inc., 1984 

30 min. , Color (The Computer Show); J-H A 

Briefly demonstrates features of a computer operating 
system designed for multi-user business applications, the 
Northstar "Dimension" system; this is followed by a 
demonstration of software called "Color Paint." Both 
programs are designed for IBM PC computers. 

COMPUTER SHOW #6, THE 

Oceanic Cablevision, Inc. , 1984 

30 min., Color (The Computer Show); J-H A 

Mini documentaries in this .program feature computers: 

computerized music, computers in designing and 

manufacturing, a young science fair winner who is a 

computer whiz, a new way of notating dance, and the work 

of robots, present and future, 

COMPUTERS 

Hawai'i Public Television, 1980 
60 mins„, Color (Dialog); H C A 

Presents a group of computer experts who discusses the use 
of computers, their advantages and possible disadvantages. 
The question is--what is the future of computers, will they 
compete with people for jobs? NOT FOR CATV USE. 

COMPUTERS 

Hawai 1 i Public Television, 1980 

10 mins., Color (Dialog); RCA. 

Edited version of "Computers" without the panel 

discussion. Shows only the mini-documentary of the topic 

up for discussion* 
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0112-1 COMPUTERS . 

Hawai'i Public Television * 1982 

59 Mins.i Color (Dialog); H C A T 

This program examines the numerous functions and 

disadvantages Of having personal combUters. It also 

describes the different brands Of computers and their most 

effective Use, especially by the average person- NOT FOR 

CATV USE. 



0088-2 COMPUTERS 

Hawai'i Public Television ,1982 
6 mih.j Color (Dialog); H C AT. 

Edited version of "Computers" without the panel discussion- 
Shows only the mi n i -docurnenta ry of the topic up for 
discussion. 

1756-1 COMPUTERS 

WETA-TV, Washington, D.C., 1983 
26 mi n . , Color (spaces); J-H 

Mini documentaries in this program feature computers: 
computerized music, computers in designing and 
manufacturing, a young science fair winner who is a 
computer whiz , a new way of notating dance, and the work 
of robots, present and future. 

R129-1 COMPUTERS AND THE FUTURE 

Time-Life Video, 1982 

30 mins, , Color; J-H A 

Combining documentary technique 

explores our growing relationship with communications 
technologies such as interactive computers, cable 
television and media forms on the way we 1 ive, work and 
play. Futurologist Peter Schwartz is host. LOAN ONLY. 
NOT FOR CATV USE. NOT AVAILABLE TO PUBLIC LIBRARIES. 

DATABASE PROCESSING SYSTEMS (COMPUTERS AT WORK SERIES-#10) 
BNA Communications, Inc. 1980 
30 mins, Color; H A 

A banking application serves as a case study to define the 
characteristics of database process how it 

differs from file processing. A 1 imi ted number is avail- 
able. If interested, call Computer Education, Office of 
Instructional Services, at 395-8916. 

1664-2 DATA PROCESSING 

Kapi^olani Community College, 1983 

12 mins., Color (A Career in Focus); J-H 

In the business world, computers pi ay a major role in data 

processing, accounting, and record keeping. This program 

describes the duties and work of computer operators, 

computer programmers, data entry clerks and control clerks. 

KCC offers a two-year course in computer education. 
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EVOLUTION: COMPUTERS, YESTERDAY AND til DAY (COMPUTERS AT 
W0RK..SERIES-/?1) 

BNA Cbirtiiuni cations, Inc., 1983 

3U min. \ J-H A 

This film presents the history of four .generations of 
computers,. Included are the people .md tine companies that 
developed them, 

FILE STRUCTURES • BASIC POWERS PROGRAM 8 
University of California, EMC, 1982 
19 mins . * Color; HA 

Continues the discussion of input and output, but with 
emphasis on external storage of programs and data on disk 
and tape units. Concludes by examining several popular 
microcomputer operating systems, 

FITTING OUT 

Great Plains National, 1980 

15 mins., Color (Business Computing. . Cut Down to Size); A 
Offers guidelines on determining the capabilities of 
computer systems (size , storage maintenance). LOAN ONLY. 
NOT FOR CATV USE. NOT AVAILABLE TO PUBLIC LIBRARIES . 

HARDWARE A. ) SOFTWARE (COMPUTERS AT WORK SERIES-//3) 
BNA Communications, Inc., 1930 
30 mins. , Color; J-H A 

In-depth look at hardware and software, memory and data 
storage, programs, languages and operating systems. High- 
lighted by a visit to a modern computer cent -\ 

MEASURING UP 

Great Plains National, 1986 

15 mins., Color (Business Computing, . Cut Down to Size); A 
Details applications and types of srtial"; computers and the!; 
integration into a business. LOAN ONLY. NOT FOR CATV USE. 
NOT AVAILABLE TO PUBLIC LIBRARIES, 



SUBSCRIPTED VARIABLES AND ARRAYS - BASIC POWERS PROGRAM 5 
University of California, EMC, 1982 
22 mins. , Color; HA 

Introduces the use of dimensioned variables, which contain 
more than one set of values or groups of characters. 
Concludes by showing how to design a useful "bubble-sort 51 
routi ne. 

TIC - Index to Energy 

U.S. Department of Energy, 1977 

6 min; , Color; C A 

Describes the Technical Information Center (iIC) o\ the 
Department of Energy at Oak Ridge, Tennessee. The 
computerized facility gathers, abstracts and catalogues 
technical reports around the world. This material is 
evaluated and becomes a permanent part of a data bank of 
technical and scientific energy information. 
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R198-1 UNDERSTANDING. SOFTWARE 

Great Plains_Natibrial , 1980 

16 miris. , Color (Business Cbmputihg. . .Gut Down to Size); A 
Discusses types, _appl i cations arid_tbe . choosing. of. software. 
LOAN. ONLY. NOT FOR CATV USE. NOT AVAILABLE TO PUBLIC 
LIBRARIES. 

1745-1 WHY IN THE WORLD #245 

WNET & Satellite Education Services, Inc., 1984 

30 riiih. j .Color (Why in the Wor ld); J H A 

Topic: Computers and_ the changes they bring to 

America — how people live. arid work. Guest: John F. Akers , 

President or IBM Corporation. 



*Codes for grade or ability levels are: 

E = elementary; J = junior high; H = high school; C = college; 
A = adult; T = teacher. 
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